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DSPA  PROGRAMMER'S  MANUAL 


1.  INTRODUCTION 

1.1  Scope 

The  Design  Synthesis/Performance  Analysis  (DSPA)  program  set  is  a package 
of  subprograms  for  computing  Navigation  Aid  Power  System  design  and 
performance  characteristics.  The  DSPA  programs  are  used  to  obtain 
ambient  temperature  and  solar  radiation  data  from  weather  tapes,  to  pro- 
vide specifications  for  viable  solar  array /battery  power  systems  for  use 
in  the  flashing  leunp  buoys  employed  as  Maritime  Aids  to  Navigation,  and 
to  simulate  the  operation  of  these  power  systems  under  specific 
conditions. 

1.2  Purpose 

The  Programmer's  Manual  provides  a detailed  description  of  the  DSPA 
system  and  the  programs  comprising  it . The  purpose  of  this  manual  is  to 
document  the  DSPA  programs  and  to  assist  the  programmer  in  revising  or 
updating  the  several  subprograms. 

1. 3 Computer  Requirements 

The  DSPA  computer  program  is  currently  programmed  for  the  UNIVAC  1108 
computer  using  the  EXEC  8 Operating  System.  Since  the  DSPA  program  is 
coded  in  FORTRAN  V language,  the  program  may  be  run  on  other  computers 
with  minimal  modification. 

Use  of  the  DSPA  program  requires  a computer  having  at  least  30,000  core 
locations  available  for  the  program  and  at  least  2 tape  units  available 
for  mount/dismount  service  in  addition  to  the  normal  input/output  units. 
The  core  requirement  is  based  on  using  segmentation  or  overlay.  Soft- 
ware requirements  include  a FORTRAN  V compiler,  standard  mathematical 
and  input/output  routines  and  CALCOMP  plotting  routines. 
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1.1*  ProKram  Flow  Charts 


Flow  charts  of  the  DSPA  subprograms  were  not  furnished  in  the  Program 

Documentation  volumes  since: 

• fiost  computer  facilities  have  programs  which  automatically  produce 
subroutine  flow  charts.  If  such  charts  are  desired,  the  program 
user  can  easily  select  the  subroutine  of  interest  and  obtain  a copy 
of  the  latest  version  of  the  subroutine. 

• Preparation,  reproduction,  and  inclusion  of  all  of  the  present 
versions  of  the  DSPA  subroutines  in  the  Program  Documentation  would 
be  more  costlv  than  if  the  flow  charts  were  prepared  by  the  program 
user  automat  cally.  Additionally,  these  flow  charts  would  become 
obsolete  as  modifications  were  made  to  the  DSPA  computer  program. 
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2.  SYSTM  DESCRIPTION  | 

I 

i 

The  DSPA  system  is  a set  of  related,  digital  computer  programs  which  are  j 

used  for  designing  and  analyzing  solar  array/battery  power  systems  for  i 

use  as  Maritime  Aids  to  Navigation.  All  of  the  DSPA  programs  are  written  ' 

in  FORTRAN  V language  for  use  on  the  UNIVAC  1108  computer  under  the 
EXEC-8  operating  system.  Operation  is  in  batch  mode  via  card  input  as 
described  in  Section  2.1*. 

2.1  Subroutines 

The  DSPA  Program  is  segmented  along  functional  lines  to  reduce  core 
occupancy  costs.  The  four  segments  and  their  functions  are: 

a.  MAIN  Segment 

(1)  Contains  main  DSPA  driver  program  (CENTER) 

(2)  Contains  all  subprograms  which  are  common  to  two  or  more 
auxiliary  segments. 

(3)  Contains  all  data  areas  which  are  common  to  two  or  more 
auxiliary  segments  or  which  must  be  maintained  between  segment 
loads . 

b . PS  Se*?iient 

(1)  Evaluates  functional  and  economical  criteria  to  provide  design  i 

specifications  for  a viable  power  system.  i 

(2)  Writes  design  characteristic  information  tables. 

c.  PA  Segment 

(1)  Simulates  solar  array /battery  power  system  performance  under  ! 

specified  loads  and  environmental  conditions. 

(2)  Writes  performance  information  to  a file  for  later  printing  i 

and  plotting.  ; 

I 

I , 

(3)  Generates  (on  request)  current  vs.  voltage  plots  for  all  of  i' 

the  power  system  subelments  at  a given  "instant"  in  time.  h 

i \ 

li 


J 
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d.  SUM  Segment 

(1)  Produces  (on  request)  summary  plots  from  the  performance  data 
generated  and  stored  by  the  PA  segment. 

(2)  \/rltes  summary  tables  from  the  PA  segment  output  performance 
data. 

Loading  of  the  three  auxiliary  segments  is  controlled  automatically  by 
the  LXEC-8  system.  An  auxiliary  segment  is  loaded  into  core  only  as  it 
is  required  by  the  main  driver  program  (CEiJTER)  and  is  released  when  a 
different  segment  is  requested.  Table  2-1  gives  a list  of  the  DSPA 
program  elements  grouped  by  segment.  The  table  also  lists  the  element 
entry  points,  type,  and  function, 

2.2  Structure 

A schematic  diagram  of  the  DSPA  program  structure  is  given  in  Figure  2-1. 
Eacli  box  is  identified  by  its  Entry  Point  name  with  the  Element  name  in 
parentheses  if  different.  Internal  subroutines  are  indicated  in  dotted 
boxes  attached  to  the  main  subroutine  element. 

2. 3 Collection 

A collection  and  subroutine  cross  reference  table  for  the  DSPA  program 
is  i^rovided  in  Table  2-2. 
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TABLE  2-1.-DSPA  SUBROUTINES 


' — 

L3KGMEUT 

ELEMENT 

ENTRY 

TYPE 

FUNCTION 

:l\in 

ACOMONS 

PDP 

Common  data  for  MIN  segment 

BLKDTA 

BLKDTA 

FOR 

Block  Data  for  ACOMONS 

CENTER 

(MAIN) 

FOR 

Main  driver  program 

READTAPE 

RDTAPE 

FOR 

Read  ambient  temperature  and 
solar  insolation  for  a given 
day  and  hour  from  a weather  data 
tape 

TMNMX 

FOR 

Find  minimum  end  maximum  ambient 
temperature  over  one-year  period 

SLUP 

SLUP 

FOR 

Single- variable  look-up  using 
Legrangian  interpolation  and 
extrapolation 

SORT 

SORT 

FOR 

Sort  an  array  in  ascending  order, 
eliminate  any  duplic'te  values, 
zero-fill  remainder  of  array 

TB2GET 

TB2GET 

FOR 

Two-variable  look-up  using 
Legrangian  interpolation  and 
extrapolation 

TB2SET 

FOR 

Build  two-variable  table  for 

TB2GET  search 

TBLCOEF 

LCOEF 

FOR 

Find  Legrange  interpolation 
coefficients  for  TB2GET 

TBSR 

TBSR 

FOR 

Perform  TB2GET  interpolation  or 
extrapolation 

DS 

DSDRVR 

DSDRVR 

FOR 

Perform  Design  Synthesis  calcula- 
tions and  write  output  tables 

DS-BATEFC 

DSBEFC 

FOR 

Compute  battery  operating 
efficiency 

US-CDSI 

CDS  I 

FOR 

Compute  dear-day  solar 
insolatj  on 

DS-ESGIV 

DSESGC 

FOR 

Compute  battery  I-V  character- 
istic arrays  for  the  given 
temperature  and  state-of-charge 
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TABLE  2-i.-DSPA  SUBPOUTIHES  (contd) 


SEGMENT 

ELEMENT 

ENTRY 

TYPE 

FUNCTION 

DS 

(contd) 

DS-PCDGC 

DSPCDG 

j 

FOR 

Initialize  Power  Conditioning 
and  Distribution  Group 
parameters 

DSPCDC 

FOR 

Compute  Power  Conditioning  and 
Distribution  Group  I-V  charac- 
teristic arrays 

DS-SAEC 

SAEC 

FOR 

Compute  Solar  Array  I-V 
characteristic  arrays 

1 

DS-TERMC 

TERI-IC 

FOR 

Compute  terminator  characteris- 
tics (sunrise  and  sunset  times) 

PA 

PADRVR 

PADRVR 

FOR 

Execute  Performance  Analysis 
calculations  and  write  output 
file  for  later  printing 

PA-BATEFC 

BATEFC 

FOR 

Compute  battery  operating 
efficiency 

PA-DRVPLT 

CRVPLT 

FOR 

Generate  "instantaneous"  equip- 
ment I-V  characteristic  curve 
plots 

PA-ESGC 

ESGC 

FOR 

Compute  Energy  Storage  Unit  and 
Group  I-V  characteristic  arrays 

1 

PA-INTER 

INTER 

FOR 

Locate  stable  intersection  for 
Difference  and  Energy  Storage 

Group  characteristic  I-V  curves 

PA-PCDGC 

PCDG 

1 

FOR 

Initialize  Power  Conditioning 
and  Distribution  Group  parameters 

PCDGC 

FOR 

Compute  Power  Conditioning  and 
Distribution  Group  I-V  charac- 
teristic arrays 

PA-PRTPLT 

PRTPLT 

FOR 

Write  Performance  Analysis 
summary  data  to  a file  for  later 
printout 

PA-PSGC 

PSGC 

FOR 

Compute  Solar  Array  and  Power 
Source  Group  I-V  characteristic 
arrays 

50U0-27 
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TABLE  2-1.-DSPA  SUBROUTINES  (contd) 


SEGMENT 

ELEMENT 

ENTRY 

TYPE 

FUtJCTION 

PA 

(contd) 

PA-SLIVC 

SLIVC 

FOR 

Compute  Shunt  Limiter  I-V 
characteristic  arrays 

SUM 

PA-SUMARY 

SUl-lARY 

FOR 

Read  Stored  Performance  Analysis 
output  data  and  product  tabular 
printout  and  summary  plots 

NOTE;  The  f-lAIH  Segment  also  contains  four  system  library  routines  which 
were  modified  to  facilitate  simpler  interfacing  with  the  JPL 
coding.  These  routines  are  AXIS,  PSCALE,  QLINE,  and  QSCALE. 


0 


FIGURE  2-1.  DGPA  PROGRAl-1  STRUCTURE  (Sheet  1 of  3)  ' 

I 

J 
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FIGURE  2-1.  DSPA  PROGRAM  STRUCTURE  (Sheet  3 of  3) 
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TABLE  2-2. -COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE 


■nap.xs  ospa 

.MAPDECK.OSPA.OsPA 

NaP  23*Q  02/03-1  I :2t  10. t papoeck 

>*ncm 

L061C  full 

2* 

LIB  LIB-PLOTB 

3. 

SEC  MAIN 

n» 

IN  OSPA. CENTER. ^BLKDTA 

s. 

IN  DSPA.RCADTAPe..SLUP,,SORT 

A. 

IN  DSPA.TB2CCT..TDLC0EF..TBSR 

7. 

SEfi  DSa.INAIN) 

t. 

IN  OSPa.DSDRVR 

f. 

IN  DSPa.DS-BATCFC.^DS>COSI r.DS-ESSlV 

10* 

IN  DSPa.DS-PCOGC. .0S-SAEC..DS>TER^C 

II. 

SEfi  PAa.IHAINI 

12. 

IN  OSPA.PAORVR 

13. 

IN  DSPA.PA-BATEFC.;PA-CRVPLT..PA-ESfiC 

M. 

IN  0SPa.PA-|NTER,»FR-PCD6C.,PA-PRTPLT 

IS. 

IN  dspa.pa>psgc..pa-slivc 

1*. 

SEfi  SUH*tlNAIN| 

17. 

IN  dspa.pa-sumart 

la. 

END 

address  limits  OOlOOO  03A10S  oloooo  07‘*105 

SeSNCNT  LOAD 

TABLE  OtOOOO  010017 

Indirect  load  table  omqo20  oroi27 

StARTINS  address  022I3S 

wqivds  decinal  m9\B  IBank  ihhoa  obank 

segment  main  OOIoOO  02SM72 

010130 

044002 

NsMTCB/FOR 

1 OOIOOO  001021 

NNBLKS/roR 

1 001022  001011 

NrWNDB/FOR 

1 00I01S  001 I2A 

2 

010I30 

010111 

NwEPB/rOR 

1 001127  Ooj3l3 

2 

01011} 

01QI4I 

NfTCHB/roR 

1 001311  001*27 

2 

010142 

010207 

MfTVB/rOR 

1 001*30  001*52 

NCkOSB/POR 

1 001*53  002051 

2 

O 

o 

O 

010211 

NhSIKS/POR 

1 002055  0021** 

NBSBLS/POR 

1 0021*7  002227 

NuPDAB/rOR 

1 002230  0022*3 

NBPOOB/rOR 

2 

010212 

012113 

NtDCVB/fOR 

1 002241  002111 

2 

012111 

012504 

NoTINB/fOR 

1 002112  002711 

2 

012507 

012520 

NoUTB/POR 

1 002715  001011 

2 

012521 

012555 

N(NVTB/P0R 

1 001012  0012*3 

2 

012554 

012**2 

N|OCRB/rOR 

1 0012*1  ooisoo 

2 

012453 

013023 

N|NINS/rOR 

1 OOlSOI  06i*7| 

2 

013021 

013027 
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TABLE  2-2. -COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  (contd) 


N I NOT4/F0R 

1 

OOH672 

005556 

2 

0*4  3030 

0R3053 

1 

OOB'jS? 

no6*4H2 

2 

0*4305*4 

0*43131 

NfCHK»/FOW 

1 

noA'»‘«3 

007*433 

2 

0*43  1 32 

0*43305 

M 

0H3306 

0*43357 

NtABI/FO<» 

2 

0*43360 

0*4353*4 

nexp<,*/fo:< 

1 

007*43** 

007630 

2 

0H3535 

0M3606 

, NeXP6*/F0R 

1 

00763  1 

007716 

2 

0*43607 

0*4361  6 

Cruz 

E*P*/F0R 

1 

007717 

0 1 0006 

2 

0*436  1 7 

0*43637 

*s  I 'JCQSZ/FOP 

1 

0 10007 

010223 

0 

0‘436H0 

0*43665 

TaMCOTANZ /FOR 

1 

0 1 022*4 

010*421 

2 

0*43666 

0*43706 

SqRT* /FOP- JPL 

1 

0 1 0 ‘4  2 2 

0 1 0*460 

2 

0*43707 

0*437  1 3 

5lNC0S*/F0« 

1 

0 1 OHA  1 

010613 

2 

0*437  l*( 

0H3735 

*l0GI/F0P 

( 

01061** 

010733 

2 

0*4373fc 

0*43776 

NeRPB/FOR 

1 

ni073H 

011363 

2 

0*43777 

0*4*4206 

NlO JTZ/FOR 

J 

0 1 1 36*4 

012*437 

2 

0*4*4207 

0*4*42*4*4 

N5T JP#/FOR 

1 

012*4*40 

0 1 2*475 

2 

0*4*42*45 

0*4*426  1 

NoBJFi/FOH 

» 

012*476 

012537 

2 

0HH262 

0*4*4262 

N|  I NPl/FOR 

1 

0 1 25*40 

0 1 *4*430 

2 

0*4*4263 

0*4*4*467 

NiEWZ/FOR 

1 

01  *4  *431 

0 1 *4602 

2 

0*4*4*470 

0*4*4607 

NlB‘JF»/FOR 

1 

1)  1 '4603 

0 1 *46H2 

2 

0*4*4610 

0<4<46  1 0 

N I NTR8/F0R-JPL 

1 

0 1 *46*4  3 

015067 

2 

05*461  1 

0HM674 

NtH4N«/F0R-JPL 

1 

0 1 5070 

0 1 67*4  1 

2 

0*4*4675 

0*45353 

IDL* 

1 

0 1 67*42 

017010 

SeTmSG/C*LC 

1 

0 17011 

0(7101 

0 

0*4535*4 

0*45*400 

2 

blankscommon 

Sn0777/C*LC 

0 

0*45*40  1 

0*45*432 

PCT  *« 1 /C AlC 

1 

0 17  102 

017133 

0 

0*45^33 

0*45*475 

JPLOGO/CALC 

1 

01713*4 

0 1 7526 

0 

0*45*476 

0*45705 

2 

BLANKSCOH44nN 

pctabl/calc 

0 

0*45706 

0*457*45 

PhEAOER/CALC 

1 

017527 

017761 

0 

0*457*46 

0*46062 

2 

blankscommon 

PlHOR/CALC 

1 

017762 

02005*4 

0 

0*46063 

0*46127 

2 

blankscommon 

NuPBER/CALC 

1 

020055 

U 2 0 3 6 7 

0 

0*46  1 30 

0*46175 

2 

blankscommon 

SyMBOL/CALC 

1 

020370 

020576 

0 

0*46  176 

0*46205 

2 

0*46206 

0*4652  1 

*X I B/CALC 

A 

020577 

021 26o 

0 

0*46522 

0*466  17 

2 

blankscommon 

SpLT/CALC 

1 

02 1 267 

0221  3*4 

U 

0*46620 

0*1663*4 

2 

0*46635 

0*466*43 

Cm N SUM  (COMMON 

BLOCK  ) 

0*466*4*4 

0*46710 

Pa  ( common  BLOf X I 

0*4671  1 

0*47150 

Os  (COMMON  BLOCX) 

0*47151 

05063*4 

1nPUT2  (C0»1M0N 

BLOCK  1 

050635 

053765 

InPUTI  (COMMON 

BLOCK  1 

053766 

056S52 

J COMHON  PtOCK  ) 

056553 

041*425 

Blankzcommon  (Common 

Block  i 

Ce^*TER 

1 

022135 

022360 

0 

063*426 

06502*4 

3 

OSPA 

2 

blankscommon 

5 

INPUT2 

INPUTI 

7 

PA 

6 

OS 

8 

cmnsom 

BlKOTA 

3 

OSPA 

0 

06S02S 

06S027 

s 

INPUT2 

2 

blankscommon 
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TABLE  2-2. -COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  (contd) 


7 

PA 

*1 

INPUTl 

6 

OS 

S 

CHNSUM 

RE*0T*PE 

1 

022361  023603 

0 

065030  065506 

3 

OSPA 

2 

BLANKSCOMMON 

5 

I NPUT2 

*4 

INPUTl 

Si.UP 

1 

02360‘«  02RJ20 

0 

065507  0655*46 

2 

BLANKSCOMMON 

Sort 

1 

02R121  02R30R 

0 

0655*47  065575 

2 

BLANKSCOMMON 

TR2GET 

1 

C2‘'305  0!17hi 

0 

065576  065676 

2 

BLANKSCOMMON 

TbLCCFF 

1 

02‘t7‘t2  025076 

0 

065677  0657*46 

2 

BLANKSCOMMON 

TpSR 

1 

025077  025R72 

0 

0667*47  066002 

2 

BLANKSCOMMON 

Segment 

os« 

n2B‘)73  035267 

066003  07*4105 

follows 

segment 

MAIN 

OsDRV  R 

I 

025*473  03235B 

0 

066003  072753 

3 

DSPA 

2 

BLANKSCOMMON 

S 

INPUT2 

*4 

INPUTl 

6 

OS 

Os-H»TEFC 

1 

0323B6  032555 

0 

07775*4  073073 

3 

INPUTl 

2 

BLANKSCOMMON 

*4 

INPUT2 

DS-COS  i 

1 

0325B6  033103 

0 

07307*4  073232 

3 

DSP* 

2 

BLANKSCOMMON 

S 

INPUT2 

R 

INPUTl 

Os-ESGIV 

1 

03310*4  033300 

0 

073233  07327*4 

3 

OSPA 

2 

BLANKSCOMMON 

S 

1 IJPUT2 

*4 

INPUTl 

Os-PCnGC 

1 

033301  03*41  77 

0 

073275  073*467 

3 

OSPA 

2 

BLANKSCOMMON 

B 

1 NPUT2 

H 

INPUTl 

Ds-SAtC 

1 

03*4200  035051 

0 

073*470  073770 

3 

osP* 

2 

BLANKSCOMMON 

B 

INPUT2 

*4 

INPUT! 

Os-TERPC 

1 

0350B2  035267 

0 

073771  07*4105 

3 

OSPA 

2 

BLANKSCOMMON 

B 

1NPUT2 

*4 

INPUTl 

Segment 

PA» 

02Bs73  036105 

066003  070712 

POLLOWS 

segment 

main 

8line/c*lc 

1 

025*473  02601  7 

0 

066003  06606*4 

2 

BLANKSCOMMON 

OSCALE/CALC 

1 

026020  026303 

0 

066065  066133 

2 

BLANKSCOMMON 

P»ORVH 

1 

02630*4  030006 

0 

06613*4  067030 

3 

0SP6 

2 

BLANKSCOMMON 

B 

INPUT2 

*4 

INPUTl 

7 

CHNSUM 

6 

PA 

Ra-batefc 

i 

030007  03017*4 

0 

067031  067125 
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TABLE  2-2. -COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  (contd) 


3 

INPUTI 

2 

BLANKiCOMMON 

** 

INPUT2 

P*-C«VPLT 

1 

030175  0307l<* 

C 

067126  0672‘«0 

3 

OSPA 

2 

BLANKICOMMON 

*» 

PA 

P*-CS(iC 

1 

030715  031S‘I2 

0 

0672*11  067357 

3 

OSPA 

2 

BLANKICOMMON 

S 

INPUT2 

•1 

INPUTI 

6 

PA 

P»-lNTtR 

1 

031SN3  0321M3 

0 

067360  067551 

3 

OSPA 

2 

BLANKICOMMON 

5 

1NPUT2 

<» 

INPUTI 

6 

PA 

Pi-PC06C 

t 

OSZl****  U33030 

0 

067552  067652 

3 

OSPA 

2 

BLANKICOMMON 

S 

IHPUT2 

N 

INPUTI 

P*-PRTPLT 

X 

033031  U332N3 

0 

067653  067725 

3 

OSPA 

2 

BLANKICOMMON 

S 

INPUT2 

** 

INPUTI 

7 

CMNSUM 

6 

PA 

P»-PSGC 

1 

0332NN  035333 

0 

067726  070531 

3 

OSPA 

2 

BLANKICOMMON 

S 

INPUT2 

*• 

INPUTI 

6 

PA 

P*-SLIVC 

1 

03S33N  036105 

0 

070532  070712 

3 

OSPA 

2 

BLANKICOMMON 

b 

INPUT2 

*• 

INPUTI 

6 

PA 

Segment 

SUM* 

025N73  030216 

066003  067173 

polloms 

segment 

main 

line/calc 

1 

025<473  U26031 

0 

066003  066066 

PSCALE/CALC 

2 

BLANKICOMMON 

> 

026032  026353 

0 

066067  066127 

2 

BLANKICOMMON 

Pa-SUMARY 

1 

02635*1  030216 

0 

066130  067173 

3 

INPUTI 

2 

BLANKICOMMON 

S 

CMNSUM 

INPUT2 

2-12 

4 

k. - ..  . _ A 
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TABLE  2-2. -COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  (contd) 


IBANK  SESHCNtS  drawn  TO  SCALE!  SOO  WORDS  DeCINAL  PER  DASH 


Main  iiossst 

OS*  I39AS) 
l-l-ll-l-ll-l 
PA*  I<t343l 

SUM*  (13«<«i 


ObAnK  SEGMENTS  DRAWN  TO  SCALE!  300  WORDS  DECIMAL  PER  OASm 


main  mi7S) 

-i-i  1-1-1  i-i-i-ii-i-ii-i-i-n-i-ii-i-i 

OS*  131391 
-1-1-11-1- 
PA«  IIRSOI 
-1-1 

SUM*  |A33) 
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2-ll* 


501*0-27 


tI 

4> 

U 

o 

o 


w 

0 

1 

M 


CO 

CO 

o 

a: 

o 


o 

PQ 

tD 

CO 

Q 


o 

C4 

.-1 

•-1 

o 

o 

I 

CVJ 

I 

CM 

W 

« 

< 

EH 
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liOISN  ItXHSiNtt. 

linON'tNUON'finOIN  itmiNii 

(inOM'llnOIN  ItASOtNItl 

tinoN'finoiN  iiASotNKi 

finON  (tA3atN)« 


NrDUI  |N|Burt|  CCNTCR.OSO*VII>«ol(Vtl 

NROf ININPT*)  NININt 

NrCCI  INIOtRI)  N|NINt>L|NP*|NOTIN« 

NRCTOf INCRR*)  NINTRf 

•iRCRBmRKNOil  NCLOSf 
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There  are  three  forms  of  inputs  required  for  use  of  the  DUPA  profjrara: 

(l)  control  cards  to  direct  the  program  execution,  (2)  namelist  data, 
and  (3)  time-variant,  free-format  data.  L’ach  of  these  forms  depends  on 
the  portion  of  portions  of  the  DSPA  program  to  be  utilized  for  a par- 
ticular run  as  described  in  the  DSPA  User's  Ilanual.  Certain  conventions 
iiave  been  established  and  used  wherever  possible  to  provide  some 
simplification  with  regards  to  input  data: 

a.  Free-format  input  data  consists  of  a list  of  values  separated  by 
commas;  if  an  item  is  omitted,  the  value  of  zero  is  assumed. 

b.  ilamelist  input  data  consists  of  variable  names  with  their  values; 
if  an  item  or  portions  of  an  array  are  omitted,  zeroes  are  assumed 
for  those  items  not  specified. 

c.  Automatic  typing  of  variables  is  used  except  for  MAXI,  MAXV,  MAl^GA, 
;ind  MGAP\VR  which  are  defined  as  real. 

d.  Multidimensional  arrays  follow  the  convention  that  tlie  first  index 
will  vary  most  rapidly,  then  the  second,  and  so  on. 


There  are  two  different  procedures  for  executing  the  U3PA  jirogram, 
depending  on  the  manner  in  which  the  ambient  temperature  and  solar 
insolation  data  is  to  be  obtained.  Detailed  descriptions  of  the  DSPA 
input  data  and  usage,  along  with  sample  runstreams,  are  provided  in  the 
DSPA  User's  Manual. 


Tliere  are  two  kinds  of  outputs  generated  by  the  DSPA  programs:  tabular 
i)rintout  and  graphical  output.  Tlie  tabular  output  consists  of  a number 
of  132-character  lines  arranged  in  various  tables  depending  on  whicn  of 
the  Design  Synthes is/Performance  Analysis  routines  are  being  executed. 

Tlie  graphical  output  is  produced  only  for  Performance  Analysis  runs  and 
consists  of  current  vs.  voltage  plots  and/or  summary  performance  plots. 
Detailed  descriptions  and  samples  of  DSPA  output  are  provided  in  the  DSPA 
User's  Manual. 
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DSPA  SUPPORT  PROGRAMS 


As  indicated  in  Section  2.1  of  the  DS/PA  User's  Manual,  there  are,  in 
addition  to  manual  entry,  two  alternate  forms  of  environmental  data  input 
available  for  use  with  the  DSPA  program.  The  first  of  these  alterna- 
tives obtains  input  from  a tffiRGE  file  which  contains  up  to  12  sequential 
years  of  hourly  environmental  information  directly  extracted  from  NOAA 
TDF-lU  and  DECK-280  tapes.  The  second  method  uses  a STAT  file  which 
consists  of  one  year  of  hourly  environmental  data  formed  by  profiling  the 
n years  of  tiERGE  data.  To  produce  these  alternate  environmental  data  files, 
two  support  program  sets  were  written:  MERGE  (consisting  of  the  TDF14, 
DECK280,  and  LISTMERGE  programs)  and  STAT  (consisting  of  the  STATS  and 
PROFILE  programs).  These  programs  are  described  further  below.  Note  that 
both  sets  of  support  programs  (with  the  exception  of  the  LISTMERGE  routine 
which,  like  the  DSPA  program,  uses  NTRAN)  utilize  a special  assembly- 
language  subroutine,  lOW,  to  facilitate  rapid,  efficient,  and  economical 
random  access  reading  and  writing  of  data  files.  This  subroutine  also 
permits  the  reading  of  the  NOAA  environmental  tapes  which,  because  they 
utilize  fractional  word  length  records  (82-1/3  words  for  TDF-lL  and 
133-2/3  words  for  DECK-280  records),  cannot  be  read  by  conventional  Uni vac 
1108  I/O  packages. 

3.1  MERGE  Program  Set 

The  MERGE  program  set  consists  of  three  stand-alone  programs:  TDFlL  and 
DECK280  for  producing  MERGE  files,  and  LISTMERGE  for  viewing  the  contents 
of  the  MERGE  files.  The  TDFlL  program  reads  one  day's  data  from  a NOAA 
TDF-lU  weather  tape,  strips  off  the  date,  temperature,  and  wind  velocity 
information  and  writes  a MERGE  record.  Since  the  TDF-lU  tape  data  is 
sorted,  this  initial  writing  of  the  MERGE  file  is  done  sequentially  from 
January  1 of  a user-specified  start  year  to  December  31  of  a user- 
specified  end  year.  Any  missing  days  are  automatically  filled  in  by 
the  program.  Bad  or  missing  data  is  flagged  by  the  value  -1000. 

The  DECK280  program  reads  ten  hours  of  data  from  a NOAA  DECK-280  tape, 
strips  off  the  solar  radiation  (in  Langley's),  converts  the  data  to 
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watts/square  nete:’,  and  iti^ents  the  Insolation  values  into  the  appropriate 
MfIR'iE  file  date  and  hour.  It  should  be  noted  that  the  DECK-280  tape  data 
is  unsorted  and  unedited,  thereby  preventing  the  program  from  verifying  the 
integrity  of  an  entire  day's  information  until  completion  of  the  program. 

To  facilitate  checking  of  the  MERGE  file  cjntents,  a reader  program,  LIS7- 
MJiR'iE,  was  written.  This  program  will  display  any  number  of  days  of  MERGE 
uata  beginniiig  at  any  desired  date  within  tlie  file.  Viewing  is  com.pletely 
random,  and  the  user  may  skip  around  in  the  file  as  much  as  he  desires. 
Also,  either  the  skeletal  MERGE  file  produced  by  the  TDFlU  program  or  the 
completed  file-*  generated  by  the  DECK280  program  may  be  reviewed. 

Descriptions  for  the  usage  of  these  three  iCRGE  programs  are  given  in 
Section  i*.l  of  the  DS/PA  User's  Manual.  Program  listings  are  provided  in 
Appendix  C of  this  manual.  The  format  of  the  MERGE  file  records  is  as 
follows : 


Word  1 

Word  2 

Word  3 

Word  1* 

Words  5-28 

Sector  1* 

Station  Uo. 

Date 

Sector  No. 

EOF  Date 

Hourly  Temperature 

Sector  2 

Blank 

Blank 

Blank 

Blank 

Hourly*  Wind  Velocity 

Sector  3 

Blank 

Blank 

Blank 

Blank 

Hourly  Solar  Radiation 

A collection  and  subroutine  cross  reference  table  for  the  MERGE  programs 
are  provided  below. 


*A  Sector  is  defined  as  28  words.  Both  NTRAM  and  lOW  use  sector  count  to 
locate  read/write  positions.  Each  MERGE  record  is  3 sectors,  or  81*  words, 
long. 
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TABLE  3A. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REF’ERENCE  - TDF14 


irf«»P,xs  .USER.TDFl** 

23-R  OS/2  1 -07  ; 1 8 

1,0) 

IN  UStR.  TDF  1 it.  . low 

*OORESS  limits 

OOlOOO 

0131^2  ONnOOO  0**537o 

Starting  address 

01  1270 

"qRDS  DECl*’*l. 

52H3 

IBanf 

7809  0B8NK 

SEONEnT 

MA  I N 

OOlOOO  Ol3J72 

OROOOO 

085370 

NSWTC8/F0R 

1 

nciOor,  0nl02i 

NrBlX»/FOR 

1 

001022  OolORH 

NRWND>/F0R 

1 

qqiors  oni  126 

2 

OROOOO 

OHOOl 1 

N,^EF»/F0R 

1 

ool 127  Ool313 

2 

0R0012 

08q03| 

NBDCVf /FOR 

1 

OClilR  OolRR) 

2 

0R0032 

080078 

NFTch»/FoR 

1 

00l‘*H2  Oo|755 

2 

0R0075 

080122 

NCL0S8/F0R 

1 

00)^56  002157 

2 

0<40I23 

080158 

NwBLF»/F0R 

1 

OC2I6o  Oo227| 

NBSBLi/FOR 

1 

002272  002332 

NuPDAf /FOR 

1 

002333  002366 

NBF00*/F0R 

2 

0R0I55 

082356 

NFTVf /FOR 

1 

002367  002RII 

NCNVTf/FOR 

1 

002R12  0o2633 

2 

0H2367 

082853 

NOT  I Ni/FOR 

1 

002630  003136 

2 

0R2RSR 

082865 

NOUTi/FOR 

1 

003137  On‘*263 

2 

0<)2R66 

082522 

N I N 1 N>/F0R 

1 

00R26R  OcRtSM 

2 

QR2S23 

082526 

NFCHK8/F0R 

1 

OORNBB  OoSRRb 

2 

0H2527 

082702 

«♦ 

0H2703 

082758 

N0Sym»/F0R 

1 

OOSRR6  Oo5707 

2 

0R225S 

082761 

N I 0ER8/F0R 

1 

0067io  0n6l2M 

2 

0R2762 

083132 

NINPT8/F0R 

1 

0C6125  00701  1 

2 

0R3133 

083156 

NfmTI/FOR 

1 

0070l?  0n7675 

2 

083157 

083238 

NT  AB8/F0R 

2 

083235 

083811 

Eros 

NeRRI/FOR 

1 

00T67a  0i0325 

2 

083812 

083621 

NST0P8/F0R 

1 

010326  0i0363 

2 

083622 

083636 

NoBUFf/FOR 

1 

OlOOAN  0|0R2S 

2 

083637 

083637 

N I BUF8/F0R 

1 

0l0‘t26  ai0‘*65 

2 

083680 

083680 

NJNTRf/FOR-JPL 

1 

0l0‘t66  010712 

2 

083681 

083728 

N 1 ER8/F0R 

1 

010713  Oi  106R 

2 

083725 

088088 

NISTMI/FOR 

1 

0 1 106S  oi  1 267 

2 

088085 

088050 

BLA^K»Cf)MMON  (CO^MO'^ 

BuOCF 1 

ToF  1 M 

1 

01  1270  0i3l37 

0 

088051 

085357 

2 

BLRNKSCOHmON 

I OW 

1 

0131M0  0?3172 

2 

085360 

085370 

J 
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TABLE  3A. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - TDFl4  (contd) 


cntht/blocK(cU[:henti 

••••  referenced  bT  EUEMCNT  •••• 

»STorF(NIt»*l 

NOUTB 

•L*NKtC0MN0N( COMMON 

8L0CKI  TOFlH 

■l* ( NBFOO* 1 

NFCMll 

BsIBlB(NB5BlI| 

NFCHKi,NOTlNB.N«f FB 

B|L*(N8F00II 

NFCMFl 

BlOfINPFOOBI 

NFCMl* 

bjlknot.ocfineoi 

NFCHK 

B20*<N0T-0EFINEDI 

NFCHKI 

CeNOI  I Cf)U<  1 

NINTRB 

CFE ( NFCMkB 1 

NOTINB 

ClOSEBINCLOSI) 

NFCMKB, n»eFB 

Comb ( ebub i 

NSTOPf 

CsFB(ERUBI 

NCLOSB , NFCMKB 

Om* I NB ( NWBLFB ) 

NFCMKB, No T |NB,NR» NOB, NPEFB 

EmdecbiniebB) 

NISYm»,NosVM» 

E«R»{ERUB I 

NIOERB, NSTOPB 

e«itimstofb) 

(NFCMKB, NisTRB 

El  1 TB ( ERuB ) 

NSTOPB 

E ITPLB ( NSTOPB ( 

NINTRB 

FmsIBiNIkPTB) 

NIBUFB,NISTMB 

FmS 1 OB ( MQUTB I 

NOfiUFB,NOSTMB 

FmS2B(NImPTBi 

NIBUFB,NisYMB 

FmS20B ( NOUTB I 

noBufb .nostmb 

F IELDB(NERRB) 

NINTRB 

F I TEMB ( eRUB ) 

NCLOSB, NFCMKB 

FmTOP 1 NFmTB I 

NOUTB 

F nCTBB ( NFCHKI 1 

NFTCMB,NotINB,nS*TCB 

iRLLBtCRUB) 

NINTRB, NSTOPB 

institinierb) 

TOF  1 M 

inb ( nostmb I 

NISTMB 

IOCOOB(NIERB) 

NFCMKB,  (VFMTB,nFTcMB,niBUFB,niSYMB,NoBuFB,nOSTmB,nrNnOB,NNeFB 

■OERRSINERPB) 

NFCMK  B 

lOPI IOMI 

tdfir 

1 ON* 1 ERUB 1 

I ON, N^sBL»,NCLPSB,NFCHKB,^FTCMB, NIOERB 

I 0* (ERUB 1 

NCLOSB, NRBLKB,Nt<pLKB 

UO<«NOB  1 moRUFB  ) 

NOSYMK 

MBB ( ERUB 1 

NBSBi.»,NCLOSB,sFfMKB,f.FTCMB,  NOBUFB, NR*.  NO  B,NUPu*B 

"FBtERUBl 

nFTCMB 

NiBOB ( NFTVB 1 

NrHTf 

N*B1B(NFTVB) 

NFMTf 

N»B2B I NFTVB 1 

nfmtb 

NlB]B ( NFTVB 1 

nfmtb 

NiBMB  t NFTVB 1 

NFMTB 

N*B5B(NFTVB I 

nfmtb 

NiB*B ( NFTVB 1 

NFMTB 

N»B7B(NFTVB| 

NFMTB 

N»VCB(NFTVB| 

nfmtb 

NBCmB(NIoERB) 

NININB 

nbfgtbinfcmfB) 

NFTCMB, N0T|NB,NMrFB 

NBFmGB ( NFCHFB 1 

NFTCMB, NotINB,n«fFB 

NRFRLB(NFCHKB| 

NFTCMB, NotINB,nMeFB 
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TABLE  3A. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - TDFlU  (contd) 


CNTRr/BLOCK (ELEMENT  » 

••••  referenced  ry  element  •••• 

NBFRSI(NrCHKf ) 

NFTCHB.NOTINB 

NBIFAtiNiNPTf ) 

NININS.NISTMB 

nbixnbdcvbi 

NOUTB 

NBLNKB(N0UT*) 

NOBUFB.NOsYMI 

NBT00B( NCRRB ) 

NFCHKt 

NCA»(NICR*> 

NFMTB, NIsYMB.noSvMB 

NCCCl(NOUT»| 

NOTINS 

NcOOr»( NlNTRB | 

NCNVTS 

NcEFf (NSTOP»> 

NCLOSS 

NcHARt(N|ERSt 

NFMTB, nISYMB.nOSyMB 

NcJNI02B(NIER«) 

nioers.notinb 

NCNVfSfNCNVTf ) 

NINPTS 

NCOMjf j nfmt* ) 

ncnvts, ninptb 

NCSP*(NIeN*» 

NtN|NS,NlNPTB,NOTlNB,NO^TB 

NCIUL0(NIEN*» 

NBOCVS,NFcNKS,NOtINB 

WCJULJ (N|EN»» 

NBDCVS, NFcNKS 

NDBCVtiNCNVTf  1 

NFMTB, nInpTB 

NoBFIf (NCNVTS) 

NINPTS 

NdBINB( ncnvts ) 

NFMTB, ninptb 

NoBH(NCNVT*) 

NFMTB 

NoBlT»(NFMT*) 

NINPTS 

NOCOOt( NiSYMf 1 

TOFJR 

NolfiKNBOCVS) 

noutb 

NOOUTSINBOCVB) 

noutb 

NeEB(NSTOF*I 

NEPRB  ,nIntR* 

NeFCLB(N|OENB| 

NFTCMs,NinINB;nInPTB,NOTINB 

NeRCRB(N|OER>) 

ncnvts, NFMTB, ninptb 

NcRCTB(NtOENC) 

NCNVTB,NFtCHB 

NERR3B(NEPPS> 

TOFIR 

NeBRAB ( NENP* 1 

tdfir 

NeRUB (NIoERB) 

NFCMKs,NININB,NObUFB,NOSVMB,NOTInB 

NeTFBinOUTB) 

NFMTB, NOSYMB 

NeXITB(NOUTS) 

NOSYMS,NOtINB 

NFARB(NFmTB» 

NINPTS, Noutb 

NFBY|B(NI0ERB| 

nftcms 

NFC*B(NCnVTB) 

NFMTB 

NFCHKB<NFCHKB| 

NIBUFS,N0BUFS,NRwN0B,nWEFB 

NFCIB(NCNVTB| 

NINPTS 

NFCMB(NCnVTB) 

NINPTS 

NFCSB(NCNVTB) 

NFMTB 

NFOBB(NCnVTB) 

NINPTS 

NF0PB(NCNVTB ) 

NBOCVS 

NF6CB ( NFmTB ) 

NINPTS  , noutb 

NFfiTB(NFMTBj 

NINPTS 

NFMN6B(NFMTB| 

NOUTB 

NFMTRB(NCNVTB J 

NFMTB 

NFMTB(NFmtB» 

nibufs,nisyms,nobufb,nosymb,noutb 

NFM96B( NFMTB  j 

ninptb, NOUTB 

NFN10IDB(NIERB I 

NFMTB 

nfnioiB(nierb) 

NFMTB 

NFNS1B(NB0CVBI 

NOUTB 
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TABLE  3A. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - TDFlU  (contd) 


CNTRT/BLOCk(CLEKE»<ri 

••••  referenced  RF  ELEHENT  •••• 

NFNS2BINS0CVII 

NOUTt 

NFNS3((NBDCV() 

nouts 

NrPCIINlER*) 

•»0Sr«|,N0TlN»,R0uT« 

NFPKT(|NFCHK< | 

NCIOS* 

••FRFSINFHTI) 

MBOF*,N|MN«,Nl9rH»,f;oSym,NOTU»,NOUT» 

nfrc»infmt«i 

N I NPT» 

NFRGI tN|ER«l 

NFMTf.NlRpT* 

NFRHtINIER*) 

HI®UFt,NiMNf,NlNPTB,MSyMl 

NFRJf (NIERI) 

NOSTNl.NOTlNl.ROllTf 

NFRONFIlNlOERt) 

NFTCH* 

NFRZI(K|ER*I 

NFMT»,N|NpTi,ROUT* 

NFRZtS(NIER>l 

NFMTf 

NFSat 1 NCNVTI I 

ninpti 

NFTCi* 1 NfTCMf  » 

MNiNt 

NFTChB I NFTCM* I 

N I N I Nf 

NFTSLit  NIER* 1 

NCNVT*,NFhT»,HINpT1 

»»6Cf»(NFRT*l 

NlUPTS.NOuTf 

NhFF«I(N|ER*| 

NlBuf»,NISyP»,>!OriUF$,-|OSrMB,NRRNO»,hil«(EFt 

NhFFBSiNIER*) 

MStMi.NOSVWS 

NNVCf ( NFTV* 1 

NFMT* 

Nl IC»(K|NPT») 

MNINF.NIsYM* 

N|N01(NB0CV*| 

NOUT» 

NINI lIlNlNINd 

MBUFi 

N|NTRI(NtNTRII 

TOF  1 <* 

nioer*irioer*i 

r.lBS8L»,SCL0S»,NFcHK»,HFTCN»,N0TIK*,NRBLF»;NRWMD»,NNBLR*,NKEF* 

*<IOER«*  1 NIOER*  1 

ROSuFf 

N|0|VI|NIER*l 

NFMTf 

NI01»(N|E»< 1 

N0STM»,T0FlR 

N|02V»<N|E»*I 

N|BUFl,N|STM»,N0BUF*,NOSyHi 

NI02*IRIER*I 

TOFl<t 

NtOJVRtIMlERf) 

NFHTf 

N|03V((N|ER(I 

NFMTl 

NI02»IN1CR*I 

NFMT«,iglBuF*,M5YMf,N0T>Nl 

NKLN* I N 1 ER* I 

NlBUF»,RiNlN«,NlsyN»,NoSYM»,NOTlK« 

N«L2i|NIER*l 

NININ(,N0TlNf 

NLLCt(NIER*l 

NINPTI 

NeLR*(NIER*I 

NlN|Nf 

RLRTBINIERO 

NIOERB 

NlTBI |NIERB> 

NtOERl 

NNC90((NtER*) 

NIBUFt.NlNPTl.NlRYMS 

NoLNf (NJERB) 

NOT  1 N» 

Non l»(N0TtNB| 

NOBUFt 

NPCTf  INFrTH 

NINPTI, NOUTi 

NPRS(NOUT*l 

NOSTMI.NOTINI 

NPUl ( N0UT> 1 

NOSYMI ,NoT INI 

NFWZBiNFRTil 

NINPTI 

NF»i»(NFRTB) 

NINPTI, NOUT* 

NRBF*t(NFCHK>| 

nwefi 

NbBFIiNFCHKI) 

NCLOSI,Nr»NOI 

NRDUB (NIBUFB) 

T0F|R 

NROIININPTB) 

nin|ni,N|syhi 
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TABLE  3A. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - TDFl^  (contd) 


5040-27  (Change  1) 


• * X .a  o o 4 

• ••  ••  W o • 

• T * X X M : 


o«»o^o»^x  x< 

^^.IX  Wl 

. W O U W ^ t 

: 9 ^ X 9 * XT  T 


5040-27  (Change  J) 


TABLE  3B. -MERGE  COLLECTIOH  AND  SUBROUTINE  CROSS-REFERENCE  - DECK280 


BMftP.XS  .USCR.0ECK2S0 

23»R  05/2I-07; I*  1 ,01 

IN  USER.0ECK280, . I0U 


ADDRESS  limits  00|000  0I2SI0  O^oCOO  OHSIAS 

STARTINQ  address  0l|270 

WORDS  decimal  m?}?  IBank  2AT8  dbank 


SEGMENT  main  OOlOOO  OlZSio  ONOOQO  0N5I65 


NSWTC»/roR 

1 OOlOOO 

0nl02l 

NRBLKS/FOR 

1 001022 

OoiO*4S 

NRWNDS/KOR 

1 00I0H5 

001126 

2 

0*10000 

01001 1 

NWEFS/FOR 

1 001127 

0nl3l3 

2 

0*10012 

010031 

nbdcvs/for 

I 00131H 

Oni****i 

2 

0*10032 

010071 

NFTCHB/FOR 

1 001‘''(2 

001755 

2 

0*10075 

010122 

NCLOSB/FOR 

I 001754 

Oo2I 57 

2 

0*10123 

010I5H 

NwBLKB/FOR 

1 002160 

Oo227l 

NBSBLS/FQR 

1 002272 

002332 

NuPDAS/FOR 

1 002333 

002366 

NBF00*/P0R 

2 

0*10155 

012356 

NFTVB/FOR 

1 002367 

Oo2**l  1 

NCNVTB/FOR 

1 002H12 

002633 

2 

0*12357 

012153 

NOTINB/FOR 

1 00263‘4 

003136 

2 

0*(2*(5m 

0<42165 

NOUTB/FOR 

1 003137 

00*1263 

2 

0H2*«66 

012522 

NININS/FOR 

1 00M26H 

Oo‘(**5H 

2 

0*12523 

012526 

NFCHKB/FOR 

1 OONRSS 

Oo5*(*«5 

2 

012527 

012702 

H 

012703 

0<«275<( 

NOSrMf/FOR 

1 OOSNMA 

o 

o 

'MB 

O 

'•B 

2 

012755 

0N276 1 

NIOERB/FOR 

1 0057  (0 

0o6l2*( 

2 

012762 

0N3132 

NINPTB/FOR 

1 006125 

Oo701  1 

2 

013133 

013156 

NFMTB/FOR 

1 007012 

007675 

2 

013157 

01323<t 

NTABB/FOR 

2 

013235 

0N311  1 

ERU« 

NERRB/FOR 

1 007676 

0)0325 

2 

013112 

013621 

NSTOPB/FOR 

1 010326 

0(0363 

2 

013622 

013636 

NqBUFB/FOR 

1 0|036n 

0i0*«25 

2 

013637 

013637 

N1BUF(/F0R 

1 010*126 

0i0*<45 

2 

013610 

0<(3610 

NjNTRf/FOR-JPL 

1 010*166 

0)0712 

2 

01361 1 

013721 

NIERB/FOR 

1 010713 

OjlOAN 

2 

013725 

OINOU 

Nisrwf/FOR 

1 011065 

0)1267 

2 

011015 

0NS050 

BlANKBCOHMON  (COMMON 

Block  i 

DECK280 

1 011270 

OT  2*«55 

0 

011051 

01515m 

2 

blankbcomhon 

low 

1 012**54 

oT2510 

2 

015155 

0M5165 

5040-27  (Change  1) 


TABLE  3B. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - DECK280  (contd) 


CNTRT/tLOCKlCkEHENT) 

••••  referenced  bt  element  •••• 

ASTorr (NlERtl 

NOUTB 

•LANKICOMMONi COMMON 

BLOCK)  DECK2B0 

•L*iNoroo*i 

NFCMXB 

•SI*L*INISBL>I 

NFCMKB.NOTINB.MNfFB 

•iLOINOroOtl 

NFCNKt 

•lOCiNtfOOBI 

NFCHKB 

•ZLflNOT.OEFlNEDI 

NFCHKS 

■20«tN0T«0EF|NC0l 

NFCHKB 

CCNDSIERUSI 

NINTRS 

CFEiNFCHKfl 

NOTINf 

CLOSEXNCLOStI 

NFCHKB, NhcFI 

ConSlERUtl 

NSTOFB 

CsF((EMUSI 

NCLOSB, NFCHKB 

OrainiinmBlkii 

NFCHKB,NOTlNB,NRfcNOB,NHCFB 

CnOCC*|N|ERR| 

nistmb.nosynb 

ERRSlERUII 

NIOERB.NSTOPB 

EXITtNSTOFRi 

NFCHKB, NINTRB 

EXITHERUD 

NSTOFB 

EXTFLdNSTOFtl 

NINTRB 

EmsiRininft*i 

N|BUFB,N|sTMB 

FmS|0*IN0UT*| 

N0BUFB,N0STHB 

FMSEttNINFTl) 

N|BUFB,NisTMB 

EmS20»(N0UT*I 

nobufb,nosfmb 

ElELDt(MERR*> 

NINTRB 

eitemiieruRi 

NCLOSB, NFCHKB 

FhTOF(NFMT«» 

NOUTB 

FNCTBRlNFCMXt) 

NFTCHB,N0TINB,nS>.TCB 

(•LLBIERUB) 

NINTRB, NSTOFB 

InSTXT(NICRB) 

OCCK2B0 

1 nB I NOSTMS  t 

NISTHB 

I0C0DB|N|CRB| 

NFCHKB, NFMT»,nFTcH»,N|BUFB,N|STMB,NOBuFB,.|OSTmB,NRHN0B,nHEFB 

IOERRSineRRB) 

NFCHKB 

l0W( IOM) 

0FCX2aQ 

lONBlERUB) 

IOH,NBSBlB .NCLOSB, NFCHKB ,NFTCHB, N I OERB 

lOXERUB) 

NCLOSB, NRBLKB,NMBLKB 

L0BN0B(N0BUFS| 

NOSTHB 

MBBicRUB) 

NBSBlB, NCLOSB, NFcHKB,nFTCHB,nOBUFB,NRHNOB,NUFO A* 

MFI (ERUt) 

NFTCHB 

N*P0f INFTVt) 

nfmtb 

NxBlf (NFTVB) 

nfhtb 

N*B2f (NFTVBi 

nfmtb 

NaB)I(NFTVI| 

NFMTB 

NxBMf INFTVB) 

NFMTB 

N«BSS(NFTVS| 

NFMTB 

NxBBBINFTVB) 

NFMTB 

N«B7<|NFTVB) 

NFHTB 

NxVCBtMFTVfl 

nfmtb 

NBCWBINIOERB) 

nininb 

NBFCTBinFCHXB) 

NFTCHB, NOtINB,NHfFB 

NBFMCBinFCHKS) 

NFTCHB, NOTIHB,n)<eFB 

nbfrlbinfchxsi 

NFTCHB, NOTlNB,NHeFB 
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5040-27  (Change  1) 


TABLE  33.-:-2:;RJE  COLLECTIOIl  AIID  SUBROUTINE  CROSS-REFERENCE  - DECK280  (contd) 


ENTRY/bCOCkIELeMENtI 

••••  referenced  by  element  •••• 

nbfrsxnfchks) 

NFTCHB.NotIN* 

nbip»««ninrt* I 

N|N|NB,N]SYHS 

NBIS(NBDCVt) 

NOUTS 

NBI.NKB(  NOUTS  1 

N0BUFS,N0SYHS 

NBT0DB(NCRP*) 

NFCHKS 

NCA»(NIER»» 

NFMTS.NISYHS.noSyMS 

NCCCBINOUT*) 

NOTINt 

NCOOPf ( NINTRB) 

NCNVTS 

NCEFUNSTOPt) 

NCUOSS 

NcHARS(NIER>) 

NFMTS.NISYHS.NOSYMS 

NcJNI02t(NIERS) 

NIOERS.NOTlNS 

NCNV9S ( NCNVTS  ) 

ninpts 

NC0M3»«NPMT*) 

NCNVTS, NINPTS 

NCSP*<NIER*) 

N1NINS,NINPTS.N0t1NS,N0UTS 

NCIUL0(N1ER«) 

NBDCVS.NFCHKS.NOtINS 

NCJULI (NIER») 

NBDCVS, NFCHKS 

N0BCV((NCNVTS| 

NFHTS. NINPTS 

NOBPlf INCNVTS) 

ninpts 

NoBINi(NCNVTS) 

nfmts. ninpts 

NdBIS(NCNVT»  I 

NFMTS 

NOBLT*(NrMT») 

ninpts 

N0C00«1NISYM*) 

0ECK260 

ndi(;«(nbpcv») 

NOUTS 

NDOUTB ( NBOCVS  1 

NOUTS 

NeE«  < NSTOPB I 

NERRS.NINTRS 

NePCL*<NIOER»I 

NFTCHS.NININS.NInPTS.NOTINS 

NeRCR»(N10ERB| 

NCNVTS, NFMTS, NINfTS 

NeRCT«( NIOERf  > 

NCNVTS, NFTCHS 

NeRR3»«NERR»» 

DECKZaO 

NeRRMB ( NERPB  ) 

0ECK280 

NeRRAS I NERP*  ) 

0ECK2B0 

NeRUKNIOER*) 

nfcmks,ninins.nobufs,noSyms,notIns 

NETPf(NOUT»> 

nfmts. NOSYMS 

NEXITi«NOUTt) 

NOSYMS, notins 

NFARBiNPMTB) 

ninpts, NOUTS 

NFBVIS(NIOERS) 

NFTCHS 

NFC*»»NCNVTf J 

NFMTS 

NFCHKf (NPCHKf ) 

nibufs,nobufs;nrwnds,nwefs 

NFCIB(NCNVTS) 

ninpts 

NFCMBJNCNVT*) 

ninpts 

NFCSI (NCNVT*» 

nfmts 

NFDBBINCNVTB) 

ninpts 

NFOPBJNCNVTB) 

NBDCVS 

NF«CS(NfHT»l 

ninpts, NOUTS 

NFSTBJNFHT*) 

ninpts 

NFHNS»(NFMTi» 

NOUTS 

NFMTRB( NCNVTC  I 

nfmts 

NFHTf<NFHT*> 

NIBUFS,NIsYMS.nObUFS,noSYMS, NOUTS 

NFM»A» ( NFMTB  ) 

ninpts, NOUTS 

NFNI010S|NIER*| 

nfmts 

NFNI0|((NICRB) 

nfmts 
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5040-27  (Change  J) 


TABLE  3B. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - DECK280  (contd) 


lNT«Y/BtOClC(EUtMENTI 

••••  REFERCNCEO  rT  element  •••• 

NPNSIS(NBOCVI) 

NOUTI 

NrNSZfINBOCVII 

NOUTI 

NENOBINBOCVII 

NOUTB 

NEPCSINICBBI 

NOSTMB.NoTiNf .NOuTS 

NrPKTBlNFCHKBI 

NCLOSS 

NrRtKNFMTBl 

N|BUFB,N|N|N*,NlirNB,NOSTMB,NOTtN>«NOUT> 

nfrcbinfhtbi 

NINPTB 

NFRfillNICB*) 

NFMTB.NINPTB 

NFRHl|N|EBll 

NIBUFI.NININI  .NIigPTf  .NISYHS 

NFRJB (N|EB<) 

NOSTNB.NotINI.NOuTB 

NFRONEBlNlOER*! 

NFTCM* 

MFRZ>|NtERB| 

NFMT(,NINPTI,NOUtB 

NFRZtSlNtERB) 

NFMTI 

NFSSB(NCNyTt| 

ninpt* 

NFTCBf (NFTCHBI 

NININS 

NFTCMflNFTCHf 1 

NININt 

NFT6L*(NIER*I 

ncnvt«,nfmy«,ninrtb 

NSCf* ( NFMT* 1 

NINPTB, NOUTB 

NhPFaB 1 N 1 ER* 1 

N|BUFB,NISTNB,NOBUrB,NOSYMB,NRWNDB,NWEP> 

nhpfbb(nier*i 

nisyhb.nosyhb 

NhVCBINFTVBI 

nfmtb 

N| ICB(N|NPT«) 

NININB.NisYMB 

N|NDI ( NBOCVI 1 

NOUTS 

NlNI lt(N|N|Ni| 

NIBUFB 

NINTRB(N|NTRf 1 

OECK2eo 

NlOER*( N|0ER*l 

NBSBl.B,NCLOSB,NFcHFB,NFTCMB,NOTINB,NRBLRB,NRt>NDB,NNBLKB,NWETB 

RIOERBAINIOERB) 

nobufb 

NIOIVKNIERB) 

nfhtb 

*4|0|B(N|eR*I 

0ECK280,N0SYHB 

N|0ZV»(N|ER*I 

nibufb.nisymb.nobufb.nosynb 

niozkniero 

OECK2eO 

N|03V*«INlERf 1 

nfmtb 

NIOJVi(NIERl) 

NFMTB 

NIOZBIMERO 

nfmtb, NI6uF*,NISyMB,N0TINB 

Nxi.Nl  ( N 1 eR*  I 

NIBUFB.NININB.nIsYMB.NOSTMB.nOTInB 

NXL2»(NIER»1 

NININB.NotINB 

NLLC1(NIER«I 

NINPTB 

NlLN»1N|ER*I 

NININB 

Nt.RTI(N|ER*l 

NIOERB 

N|.TBI|NIEPB| 

NIOERB 

NN690(|NtER*l 

NIBUFB, NINPTB, nIsTMB 

nolnsinier«i 

NOT INB 

Not  1 1 1 ( NoTiNi  1 

nobufb 

NPCTKNFMTB) 

NINPTB, NOUTB 

NPR»(N0UT»I 

nosymb,notinb 

NPU»|N0UT»I 

NOSYMB,NotINB 

NpHZI 1 NFMTS 1 

NINPTB 

NF9|»(NFNTB) 

NINPTB, NOUTB 

NRBFAI ( NFCHKI 1 

nwefb 

NrBFIiNFCHKB) 

NCLOSB ,NRnNOB 

NROUKNIBUFt) 

oeckzbo 
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TABLE  3B. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - DECK280  (contd) 


5040-27  (Change  1) 


o 

ft. 

9 


ft.  ^ 


B O 

z z 


w ft. 


• mm 

• K O 

• z z 

• • • 


z *•  u 

ftl  ^ H- 
Z O ft 


fti « « m 

Z ft  ft 

V w z .J 

0 H u 0 

ft  ft  B 

o z z z 

ftl  • • • 

W M « W « 

Z ft  U ft 

ftl  z o »-  z 

« O ^ B U 
ftl  ft  U lA  ft 

ft  z z z z 


^ ^ ^ m m 

• mm  z o ^ 

• M M u .1  3 

• 0 a ft  o o 

• z z z z z 


->0  ft  — 

ft  o — .J  m 

u ft  « a »- 

o B :>  B z 

^ Z ft  Z — ft 

• tel  a z 

X »•  *-  a 3 •• 

^ a a ft  ft  a 

ft  O »-  «J  ftift 

► o •*  a o 

z ft  a ft  a ft 
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5040-27  (Change  1) 


TABLE  3C. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - LISTMERGE 


BnAP.XS  iUSCR.LISTNCROE 

H*p  23-R  05/2l-07;j» 

1 ,01 

IN  USER. LISTMERGE 

ADDRESS  limits  OOlOOO 

01  3207  o‘*oooo  oi^osa 

STARTINC  address  012R75 

Words  decimal 

S2SA 

IBank 

2588  OBANK 

segment 

MAIN 

OOiOOO  013207 

o 

o 

o 

o 

o 

015033 

NswTCi/roR 

1 

OOlOOn  0nl02l 

NRBLKf/FOR 

1 

001022  OolORR 

NRWNOt/FOR 

1 

00I0R5  001126 

2 

010000 

01001  1 

NriEFf /FOR 

1 

001127  Onl3l3 

2 

010012 

010031 

NFTCMS/FOR 

l 

00l3m  001627 

2 

010032 

010057 

NBDCV(/F0R 

I 

001*30  Ool755 

2 

010060 

010122 

NFTVI/FOR 

1 

001756  002000 

NCNVTB/FOR 

1 

002001  002222 

2 

010123 

010217 

NCLOSI/FOR 

l 

002223  002R2R 

2 

010220 

010251 

NmBLKB/FOR 

I 

002R2S  002536 

NBSBLf/FOR 

1 

002537  002577 

NUPDAB/FOR 

l 

002600  002633 

\ 

nbfoo»/for 

2 

010252 

012153 

NtNINS/FOR 

l 

002*JR  Oo302R 

2 

012151 

012657 

NiNPTf/FOR 

1 

003025  Oo37U 

2 

012160 

012503 

NOTINB/FOR 

I 

003712  Oo‘*2l‘t 

2 

012501 

012515 

NOUTB/FOR 

1 

00R215  0053**! 

2 

012516 

012552 

NfMTB/FOR 

1 

0053<42  Oo6225 

2 

012553 

012*30 

N]0ERB/F0R 

1 

006226  00*MM2 

2 

012631 

013001 

NFCHKB/FOR 

1 

00*‘“*3  Oo7R33 

2 

013002 

013SSS 

1 

013156 

013227 

ERUB 

ntabb/for 

2 

013230 

013101 

athsb 

0 

013105 

013105 

NCRRB/FOR 

I 

007131  oTo063 

2 

013106 

013615 

NlBUFf/FOR 

1 

010061  0^0123 

2 

013616 

013616 

NIERB/FOR 

1 

010121  0|0275 

2 

013617 

013736 

NOBUFB/FOR 

I 

010276  0i0337 

2 

013737 

013737 

NST0P8/F0R 

I 

010310  010375 

2 

013710 

013751 

NINTRB/FOR-JPL 

I 

010376  010622 

2 

013755 

011010 

NtRANB/FOR-JPL 

1 

010623  Oi2l7l 

2 

011011 

011517 

SlANRBCOMMON  ^common 

BLOCK) 

LISTMERGE 

I 

012175  0i3207 

0 

016520 

0ll66s 

5 

BlANKBCOmMON 

2 

011665 

0RM707 

1 

011710 

015033 
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TABLE  3C. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - 

LISTMERGE  (contd) 


CNTNT/BLOCKIELCHCNTI 

••••  referenced  by  elehent  •••• 

ASTorriNieni) 

NOUTB 

ahaitiicruo 

NTRRNS 

•LANKtCONMONiCOMHON 

BLOCK)  LISTHER6E 

•ktiNsroo*) 

nfcnkb 

•nosicRuti 

NTRANI 

NFCMKf .NOTINB.NHeFB 

B|LB(NBr00S| 

NFCNKB 

biobinbfoosi 

NFCNKB 

•BLBINOT.OCFINcOI 

NFCNKB 

•20B|N0T>DEr INCOI 

nfcnkb 

CENOSIENUB) 

NINTRB 

CFEINFCHKSI 

NOTINB 

ClOSEXNCLOSB) 

NFCNKB, NheFB 

COMBICRUBI 

NSTOFB 

CSFB(ERUS| 

NCLOSB, nfcnkb. NTrANB 

Or* I N* ( nwBLK* 1 

NFCNKB, NOT INB.NRwNOS.NWEFB 

ERRBlERUS) 

nioerb.nstofb.ntranb 

E*IT(NST0RB| 

NFCNKB, NINTRB 

E*JTf(£RU*» 

nstopb.ntrbnb 

EXTFLBiNSTOFS) 

NINTRB 

frciuxeruo 

NTRANB 

FHSIBININFTB) 

NIBUFS 

rHSIOXNOUTi) 

nobufb 

fMS2XNINPTB| 

NIBUFB 

PmS20B|N0UTB) 

nobufb 

f IEL0B|NERR*I 

NINTRB 

'’ITEHBieRUBI 

NCLOSB. nfcnkb 

PRTOFiNFHTt) 

NOUTB 

FnCTBSinfCHKB) 

NFTCNB.NOTINB.nSnTC* 

PORKSIERUB) 

NTRANB 

I*LLB|ERUB| 

NINTRB, NSTOPB 

IoC0OB|MIER*I 

nfcnkb,nfht*,nftcnb,nibufb,noOufb,nrnno»,nncfb 

I0ERRS«NERB*I 

NFCNKB 

IOIBIERUSI 

NTRANB 

lOMIXERUB) 

NTRANB 

IqMIiERUB) 

NBSBlB, NCLOSB, nFcNKB.NFTCHB.nIOERB, NTRANB 

IOXISIERUBI 

NTRANB 

l0<IERUf 1 

NCLOSB, NRBLKB.nMbLKB 

HBBieRUB) 

NBSBLB, NCLOSB, nFcHKB,nFTCNB,NOBUFB,NRNNOB,NTR an*. NUFO At 

HFBIERUBi 

NFTCNB, NTRANB 

N*B0B|NFTVB) 

NFNTB 

NtBlBINFTVBl 

NFNTB 

NAB2XNFTVBI 

NFNTB 

N«B3f INFTVB) 

NFNTB 

N*BRB|NFTVS) 

NFNTB 

NABSXNFTVB) 

NFNTB 

N*B*B(NFTVB) 

NFNTB 

NAB7BINFTVSI 

NFNTB 

N*VC«(NFTVB| 

NFNTB 

NBCWXNIOCRF  I 

NININB 

NBFfiTt(NFCHKB| 

NFTCNB, NOTINB,nNfFB 
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TABLE  3C. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - 

LISTMERGE  (contd) 


ENTRY/Bl.OC|clEl.EMENT» 

••••  referenced  bt  ecenent  •••• 

NBFH6l(NrCHKt) 

NFTCH«,NotINS,NWeFS 

Nari?Li(NrcHKS) 

NFTCHi.NOTiNf .NNeFS 

NBFRStlNrCHKSI 

NFTCHS.NotINB 

NBIPAt(NINPr«l 

NlNlNt 

NBIKNBOCVS) 

NOUTf 

NBLNKB(NOUTS) 

NOBUFS 

nbtodi I nerp<  > 

NFCHKI.NTRXN* 

NCAtiMEBC) 

nfmts 

NCCC«tNOUT») 

NOTINf 

NCDOfK  NINTHS  1 

NCNVTf 

NCEFBI NSTOP* ) 

NCLOSt 

NcHARt(NIEHS) 

NFMTf 

NCJNIQ2S( NIERS  ) 

NIOERt.NOTiNS 

NCNV9B( NCNVTf  > 

NlNPTf 

NC0N3*INFMT*) 

NCNVTf, NINPTi 

NCSPHN!ER»I 

NININS.NINPTf  .NOrINf  ,N0*JT* 

nciuloinier*) 

NBDCVf,NFCNFf,NOTlNf 

NCIULI INIERS) 

NBOCVI.NFCHKf 

NOBCVB<NCNVTS) 

NFNTf, NlNPTf 

NoBFI*(NCNVTS) 

NlNPTf 

NoBINS(NCNVrt) 

NFMTf, NlNPTf 

N0BIt( NCNVTt ) 

NFMTf 

N0BLT*(NFHT«) 

NlNPTf 

NoiSStNBDCVS  ) 

NOUTf 

NDOUTK  NBOCVI  1 

NOUTf 

nee*<nstop») 

NERRf  .NlNTRf 

NePCU*! NIOER* i 

NFTCHf.NjNlNt.NUPTf,  NOTINf 

NERCRt(NIOCRS) 

NCNVTf , NFMTf .NINpTf 

NeRCTBINIOER*) 

NCNVTf .NFTCHf 

NeRRRB I nerrs  ) 

LISTMeRGE 

NERUf (NIOERS) 

NFCHXf.NINiNf.NOBUFf, NOTINf 

NERI0»« ATH51) 

LISTMERGE 

netfsjnoutsi 

NFMTf 

NeXITI !NOUTS» 

NOTINf 

NFARSINFMTS) 

NlNPTf  , NOUTf 

NFBrH(NIOERf| 

NFTCHf 

NFCAf ( NCNVTl ) 

NFMTf 

NFCHK*(NFCHK»J 

NiBUFf ,NobUFS .NRwNOf.NWEFf 

NFCIBINCNVT*) 

NlNPTf 

NFCMSINCNVTB) 

NlNPTf 

nfcsiincnvti  I 

NFMTf 

NFDBXNCNVTS  ) 

NlNPTf 

NFOPUNCNVT*  I 

NBDCVI 

NF8C«(NFMT*I 

NlNPTf, NOUTf 

NF6THNFMTB  I 

NlNPTf 

NFHNGtl NFHTI  | 

NOUTf 

NFMTRBINCNVTS  » 

NFMTf 

NFMTS I nfmtb ) 

NlBUFIi,NOBUFf  ,NOuTf 

NFMf*f JNFMTl) 

NlNPTf .NOUTf 

NFNI01DS(NIERS  I 

NFMTf 

NFNtOlXNIERO 

NFMTf 
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TABLE  3C. -MERGE  COLLECTION  AND  SUBROUT’INE  CROSS-REFERENCE  - 

LISTMERQE  (contd) 


CNT«T/lLOCK|tL[HCNTI 

••••  acrcaCNCco  av  clcncnt  •••• 

NrNSItINaOCVfl 

NOUTt 

NrNsitiMaocvti 

NOUTB 

NrNsia(NaDCvai 

NOUTt 

NracaiMicaai 

NOTINS, NOUTt 

NFPKTaiNrCHKtl 

NCLOSt 

NFtASlNFNTtl 

N|BUrs,N|N|NtiNOT INt.NOUTt 

NFacaiNFNTlI 

NINFTt 

NFactiNicaai 

Nf NTt.NiNFTt 

NFaHtlNIC**) 

Niaurt.NINiNt.NiNPTt 

NFRjaiNIC**) 

NOTINt, NOUTt 

NraoNFiiNiocat) 

NFTCHS 

NFRZtlMICR*l 

NtNTt.NlNPTt, NOUTt 

NFNzasiNicaai 

NFNTt 

NFSatINCNVTf 1 

NINPTt 

NFTCatlNFTCHII 

NININt 

MFTCMflNFTCHfl 

NININt 

NFTCLUNICa*) 

NCNVTt,NFHTt,N|NpTt 

NtCVaiNFMTlI 

NINPTt, NOUTt 

NHFF*t|N|C**l 

N|BuFt,Noaurt,NR«Not,Nwcrt 

NHVCXNFTVai 

NFNTt 

N| IC»(N|NFTi| 

ninins 

NiNDKNaoCVa  1 

NOUTt 

N|Nttt|N|NtNt| 

Niturt 

N|NTaB(N|NTRt| 

LlSTNENtE 

NioeaiiMioeaB) 

NtStLt ,NCLOSt,NrcNKt,NPTCHt,NOTINt,NaBLtt,NNMNOt,N«aLKt,NMCf* 

N|0(MB*(N|0C»a| 

NOtUFt 

NioivtiNicaai 

NFNTt 

N|0|t|N|C«f 1 

LlSTNENtE 

ttOtVttNICHM) 

NltUf t ,NoeuFt 

NiozKNicaai 

LlSTNENtE 

N|03v*«iNtc«a) 

NFNTt 

NiojviiNiea*i 

NFNTt 

’*l02B|N|J»ai 

NFNTt, NlBu^’t.NOTlNt 

nklni I Ntcaa  i 

NIBUFS, NININt, NOtINB 

NININI, NOTINt 

**LLCi(NiEaai 

NINPTt 

NLLN«(N|E«a( 

NININS 

*<L*Ti(Nicaai 

NIOENS 

**uTasiNiEaai 

NIOENS 

NNe«oi<Nie*Bi 

NIBUFS, NINPTS 

NOLMtlNIERB) 

NOTINS 

Non  iaiNoTiN«) 

NOBUFS 

NFCT»(NFHTi| 

NINPTS, NOUTt 

NFRt(NOUT*l 

notins 

NFUt(NOUT*l 

notins 

NFMItINFNTII 

NINPTS 

NFf |■(NF^Tt| 

NINPTS, NOUTt 

NaarAKNFCHKii 

NWCFt 

N{LOSt,NNtiNOt 

NaouaiNiaurB) 

LiSTNEPtE 

N«OB(N|l«PTai 

NININt 
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TABLE  3C. -MERGE  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - LISTMERGE  (contd) 


5040-27  (Change  1) 


5040-27  (Change  1) 


3.2  STAT  Program  Set 


The  STAT  program  set  consists  of  two  stand-alone  programs:  STATS  and 
PROFILE.  The  STATS  program  reads  MERGE  data  for  the  same  day  of  all  years 
contained  in  the  file,  computes  averages  for  each  hour  of  the  day,  com- 
putes daily  averages  for  each  year,  monthly  averages,  and  the  average 
yearly  minimum  and  maximum  temperature,  and  writes  an  intermediate  (not 
directly  readable  by  the  DSPA  program)  statistical  file.  The  format  for 
this  file  is  as  follows: 


Word  1 

Word  2 

Word  3 

Word  4 

Words  5-28 

Station  No. 

Day 

Sector 

EOF  Day 

Hourly  Temperature 

Yearly 

Yearly 

Yearly 

Yearly 

Hourly  Wind  Velocity 

T . • 

0 . * 

T • 

a * 

min 

rain 

max 

max 

No.  of 
Years^ 

Blank 

Blank 

Blauik 

Hourly  Solar  Insolation 

Blank 

Blank 

Average 
daily 
wind 
over  all 
years 

Average 
daily 
solar 
insola- 
tion over 
all  years 

12  positions  for 
average  daily  wind, 

12  positions  for 
average  daily  solar 
insolation 

The  PROFILE  program  reads  the  STATS  file  and  monthly  user-input  param- 
eters, computes  low  or  high  or  mean  profiles  as  requested,  computes  worst 
case  wind  and  insolation  days  if  required,  and  produces  a STAT  file  for 
use  as  input  to  the  DSPA  program.  Input  of  the  monthly  user  parameters 
is  via  namelist  format  as  described  in  the  DS/PA  User's  Manual, 

Section  4.2.  The  format  of  the  PROFILE  output  is  the  same  as  that  of  the 
MERGE  file  except  that  the  first  four  words  of  the  second  and  third 
sectors  of  the  first  day  contain  the  yearly  minimum  and  maximum  tempera- 
ture data  as  in  the  intermediate  STATS  file. 


•Yearly  minimvun  and  maximum  temperature  data  is  stored  only  on  the  day=l 
record. 


3-21 


501*0-27  (Change  l) 


I 

Listings  of  the  STATS  and  PROFILE  programs  are  provided  in  Appendix  D. 

A collection  and  subroutine  cross  reference  table  for  the  two  STAT 
programs  is  given  below. 

i 


« I 

( 

!■ 


} 
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TABLE  UA.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - STATS 


BhAP.XS  (USER. stats 
M«p  23>R  0S/2I«07:20  ( ,ol 

IN  USER. STATS, . I0W 


ADDRESS  limits  OOlOoO  010*07  ORoOOO  0‘<5307 

STARTIN6  ADDRESS  007230 

Words  decimal  397*  ibank  27*0  obank 


SEGMENT  HAIN  OOiOOO  010*07  OROOOO  0*5307 


NSWTCB/FOR 

1 OOlOOO 

0nl02i 

NRBLKB/roR 

1 001022 

00:0** 

NrwnOB/FOR 

1 0010*5 

Ool 12* 

2 

0 

0 

0 

0 

0 

0*0011 

NwEFB/FOR 

1 001127 

Ool313 

2 

0*0012 

0*0031 

NBDCVB/FOR 

1 00l3l* 

Ool**l 

2 

0*0032 

0*007* 

NFTVB/FOR 

1 0019*2 

Ool*** 

NCNVTi/FOR 

1 00l9*5 

O0I20* 

2 

0*0075 

0*0l7l 

NCLOSB/FOR 

1 001207 

Oc2l 10 

2 

0*0172 

0*0223 

NwBLKB/FOR 

1 002III 

O02222 

nbsblb/for 

1 002273 

Oo22*3 

NuFDAB/FOR 

1 ooi*.** 

002317 

NBFOOB/FOR 

2 

0*022* 

0*2*25 

NOT INB/FOR 

1 002320 

Oo2*22 

2 

0*2*2* 

0*2*37 

NOOTB/FOR 

I 002*23 

Oo37*7 

2 

0*2**0 

0*2*7* 

NFMTB/FOR 

1 003750 

Oo**33 

2 

0*2*75 

0*2552 

NIOERB/FOR 

1 00**3* 

Oo505o 

2 

0*2553 

0*2723 

NFCHKB/FOR 

I ooBOSi 

00*0*1 

2 

0*272* 

0*3077 

* 

0*3100 

0*3151 

ntabb/for 

2 

0*3152 

0*332* 

ERUB 

NeRRB/FOR 

1 00*0*2 

00**2l 

2 

0*3327 

0*353* 

NSTOPB/FOR 

1 00**72 

00*527 

2 

0*3537 

0*3553 

SORTB/FOR-JPL 

1 00*B3o 

Oo*5** 

2 

0*355* 

0*35*0 

NIERB/FOR 

1 oo*B*7 

Oo*7*0 

2 

0*35*1 

0*3700 

NOBUFB/FOR 

1 00*2*1 

007002 

2 

0*37oi 

0*3701 

NJNTRB/FOR-JPL 

1 002003 

On7227 

2 

0*3702 

0*37*5 

BlANKBCOMMON  (COMMON 

Block  i 

STATS 

1 002230 

0)055* 

0 

0*37*« 

0*527* 

2 

BLANKbCOHmON 

low 

1 010555 

0 

o' 

0 

2 

0*5277 

0*5307 
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TABLE  UA.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - STATS  (contd) 


CNTMT/BLOCKICLEHENTI 
AsTorr ( nieri I 

>LANKBC0MH0N|C0HH0N 
S|.l  ( NBFOO*  I 
• StBLXNBSBLII 
B|L((NBF00t| 

B|OB( NBFOOB I 

B2L*(MOT.OEF|NcO> 

B2OBINOT. DEFINED) 

CeNDBIERUB) 

CFEINFCHKB) 

ClOSEBiNCLOSB) 

CONBIEBUB) 

CSFB(ERUB) 

DRAINBinwBLKB) 

ERRB 1 ERUB ) 

EXITINSTOBB) 

EXITBIERUB) 

CXTRLB(NST0RB| 

^MSIOBiNOUTB) 

^HS20B|N0UTB I 

^IEL0B(NE«BB) 

^ITENBicruB) 

^NTOBINFNTB) 

FnCTSBinFCMBB) 

IBLLBiERUB) 

IOCODBinIEBB) 

IOCBMSINEBBB) 

l0«l lOM) 

IOWBiERUB) 

IqBiEBUBi 

NBBiERUB) 

NrBOBINFTVB) 

NrBIBINFTVB) 

N«B2BINFTVB| 

NrB2B|NFTVB| 

NaBRBINFTVB) 

NaBSBINFTVBi 

NABABINFTVB) 

NrBTBINFTVB) 

N«VCB(NFTVB I 

NBFCTBiNFCNKS) 

NBFHBBINFCHKB) 

NBFRLBINFCHKS) 

NBFRSBINFCHKB) 

nbibinbocvb) 

NBLNKB|N0UTB| 

NBTODSINCBRB) 

NCBBINICRSI 

NCCCBINOUTB) 

NCOOrBlNlNTRS) 

••CEBBINSTOBB) 


••••  reBCNENCFO  rf  ELIHENT  •••• 

NOUTB 

BLOCX)  StaTS 
nfchf* 

NFCHKB.NOTiNB.NNfFB 

nfchkb 

NFCHKB 

NFCMKB 

nfchkb 

nintrb 

NOT INB 

nfchkb, NncBB 
nstqrb 

NCLOSB, nfchkb 

NFCHKB.NotIHB.nRwNOB.NWEFB 

NIOERB.NSTOPB 

nfchkb, nintrb 

NSTOPB 

NINTRB 

NOBUFB 

nobufb 

NINTRB 

NCLOSB, nfchkb 
NOUTB 

NOT|NB,NshTCB 
NINTRB, HSTORB 

nfchkb,nfhtB,noBuFB,nrhnob,nweeb 

nfchkb 

STATS 

IOH,NBSBlB,NCLOSb,NFCHKB,N|oeRB 
NCLOSB, NR8LRB,nHBLKB 

NBSBLB,NCL0SB,NBrHKB,N0BUFB ,nRWNoB,NUPOAB 

NFNTB 

NFHTB 

NFNTB 

NFNTB 

NFNTB 

NFNTB 

NFNTB 

NFNTB 

NFNTB 

NOT|NB,NheP* 

NOTINB.NheFB 

N0T|NB,NMCP* 

NOTINB 

NOUTB 

nobufb 

NFCHKB 

NFNTB 

NOTINB 

ncnvtb 

NCLOSB 
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TABLE  4A.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - STATS  (contd) 


CNTBY/bLOCkIELeHENTI 

••••  repercncco  gr  elenEnt  •••• 

NCHARCINIERII 

NFNT< 

NCJN|02t(N|ER*l 

nioer<.notin< 

NCOMlXNrHTi) 

NCNVK 

ncsrsinierx 

NOTIN<,NOUT< 

NC1UL0(NIER»I 

NBOCV<,NFCHK<.NOtIN< 

NCIULI INIER*) 

nbdcv<,nfcn<< 

NDBCVXNCNVTt) 

NFHT< 

nobinxncnvtx 

NFNT< 

NOBIBINCNVTI 1 

NFMT< 

NOIGf  INBOCVX 

NOUT< 

NOOUTXNBDCVfl) 

nout< 

NEE>|NST0RX 

NERRB.NIntR* 

nefclbcnioeri I 

notin< 

NCRCRCINIOERX 

NCNVK, NFmT<  , 

nerctxnioerx 

NCNVK 

NeRRAXNERRX 

SQRT< 

NERRXNERRB) 

SQRK 

RERR3XNERR*) 

STATS 

RERRRXNERR*) 

STATS 

NeRUXNIOERB  I 

NFCHKt,NOBUE<,NOTlN< 

netfbinootx 

nfmt< 

NeXTBinOUTI) 

NOT|N< 

NFARXNFMTX 

NOUT< 

NFCAXNCNVT*) 

NFMT< 

NFCHKt(NFCHK<) 

NOBUF<,NR<>NO<,nNfP< 

NFCSXNCNVTB  I 

NFHT< 

MFORt(NCNVTt 1 

NB0CV< 

NFSCf tNFMTB) 

NOUT< 

NFMNSBlNFMTi) 

NOUT< 

NFMTRB(NCRVTS| 

nfht< 

NFHTi(NFMT*> 

N08UF<,N0UT< 

nfmbaxnfhtx 

NOUT< 

NFNIOIDI(NtERB) 

NFNT< 

NFN|Ot«(NIERX 

NFMT< 

nfnsixnbocvx 

NOUT< 

NFNS2XNB0CVX 

NOUT< 

NFNS3XNB0CVX 

NOUT< 

NFPCBINIERX 

NOTINf ,N0UT< 

NFPKTXNFCMKB) 

NCLOS< 

NFRAtINFHTX 

N0TIN<,N0UT< 

nfrgxnierx 

NFHT< 

NFRJXNIERB) 

NOT  INI ,N0UT< 

NFRZXNleRBl 

NFMT< ,NOUT< 

NFRZ<S<NIER< ) 

NFNT< 

NFTSL<(NIER<I 

NCNVT< ,NFMT< 

N6C»<(NFHT< I 

NOUT< 

NHPF*<(R1ER<I 

NOBUFt,NRi>NOf  ,siVrF< 

NHVC<(NFTVX 

NFMT< 

N|NO<(NBOCV<) 

NOUT< 

N|NTR<(N|NTRX 

stats 

NtOCff*|N.OER*) 

NBSBLS.NCLOSS.NFrHKB.NOTINSiNRBLAS.NRwNOA.NWeiKB.MilFA 
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TABLE  UA.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - STATS  (contd) 


tNTKT/BtOCK (CLcHCNT  > 

• •••  KtflKtNClO  i-T  •••• 

N|OCniA(NlOeK«l 

NOBurs 

NlOiVtlNlE^S) 

NfMTf 

NlP|S|NICft«) 

STATS 

N|02VSlNieMI» 

nobors 

N|0I»|N1CII«I 

STATS 

N|0)VAt(NlCMtl 

NFMTt 

N|03VtlN|Ctt»| 

NRHTS 

N|02*(N|cat) 

NFHTB.NOT  |Nt 

NOTINf 

NRUatlNICMt) 

NQTINI 

Ni.llTt|N|C**l 

NIOCBt 

NlOCBf 

NOLMt(NIC*Si 

notins 

NOriltINOTINf) 

NOBurs 

N^CTt(NrHTt) 

NOUTS 

N^RKNOUTf  » 

NOTINS 

N^UKNOUTf  ) 

NOT  INS 

NpfltlNfMTfl 

NOUTS 

NMC^S 

Niiari(MrcNRti 

NCLOSS.NSnNOS 

Niiect<Niocitt) 

notins 

NtCTOKNCMMS) 

NINTHS 

NRCKflNIlWNOtl 

NCLOSS 

NftNf2>IN|CKf) 

NOUTS 

NRSrtINCKIIt) 

niochb.nsto^s 

NRSIf INICR*! 

NOBurs 

NRTIItlNlCRt) 

NfNTS 

‘ Ntf |•<NrMT■l 

NOBurs, NOuTS 

NI|f2f4Nri«Tt) 

NOUTS 

NRf JtiNrMTi) 

NtCHt.NOUT* 

NSAOSiNCRMtl 

NIOCHS 

NSUilNlOCVtl 

NOUTS 

NSTATtCNICRti 

NCNVTS,Nrc^'(*,NrMTS,N|OCBS 

NSTO^tiNSTO^I) 

STATS 

NSTS«I|XICD>I 

NCNVTS.NrHTSfNOTiNS 

NSMTCXNSMTCtl 

NHcrs 

XSI|I|NJT0X«I 

NCtOSS,N(SllS,NrCHKB,NtE**|NtOCHS,NRMNOS,Ntoers 

nt>i*int>(*i 

NBSBtt,NCtOS>,Nr(MKS,NrMTS,NlOE»S,NOBurt,hOTI^S,NHBcr*,NRHNOS.NSNTCStNUrOAB,NMSLKt,MHCrS 

NTiSZI<NT*B>l 

NCLOSS.NrC^KS 

NTCWOijwrWTil 

N|OEHS,NOTlNS 

MTSTOKNfMTtl 

NOBurs 

NTlOtlNrnTt) 

NOUTS 

NveCtiNfTVt 1 

nrMTS  ,nOuts 

NHAL**|N(R»i} 

NCtOSS,NrcNKS,NloEHS,NOT|NS,NAWNDS,N»(rf 

NMDOSfKOBUrti 

STATS 

NuCRBf 

NCLOSS 

NlVCBlNfTVfl 

NrnTS 

0^Tt4C<*Ut) 

NSTors 

NrCHKf  ,N]OC***.NOHUrt,NOT|NS,NI>E^r 

^L*(Nirooi » 

NrcHKs 

^NCMAf  leilUSi 

NOT  INS  ,NtiCrS 

1 

1 

5040-27  (Change  1) 


1 


TABLE  UA.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - STATS  (contd) 


t>iT»T/BtOC«(tLE"t>iTI  ••••  BtrEHtNCtO  l>»  ELE"!"’  •••• 

PPB»(NOOT»I  NOTINi 

^lll»iT»IE»U*l  MCl.OSt,NE«»»,'.^Ct<«f,».r«Tt,«l|NTI»l,fclOl»*i'<OTth»,NOUT»,M«l(«ID*,*<STO^f,*l“C^* 

'KNTil I E*uf I NOTINI, NOUT* 

'UNCHf (ERUtl  NOUrl.NKCEl 

lOlLlllNKILlll  NMCEI 

"ESTSI NE**I I NSTOPI 

NIIENUII  NIILII 

SniIIIENUII  NSTO^I 

$a*TlSa»Tl|  STITS 

St»E4»(  NE»»»|  NCtOSI,NtN»Tl.NrrMKI,Nr"T*,NINT«i,NIOE«*,N«NN,>i,Nt.l»» 

TEMPIINIENII  NFCHKI ,N0TINI 

T|NTl*IE*UI|  nrnnoi 

TPCIIINTIBII  nouti 

TSNEPI I E*uf I NIOERI 

UNITIiNIEKIi  NCtOSI,NrcH«l,N  lot<*»,NoT  1M,N«BLH,N»BL*»,NPC»I 

UPOO*i(NUPO»»l  NBseLl,NrC*<**,‘IOT 

>>tlTIIEI)U*l  NBStLl,NClOS>,NFcNIII,NoBUFf  .NOTINI  iNHBLKi.NBNNOliNUPOlB.NirBLIliNNE^* 

■RBlFIi NmBlF* I NFCHKI, NSkTCI 

■ IICIUIl  NCLOSI, NFCHKI, N«FI.FI 

IFOUINFnTI!  nouti 
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TABLE  UB.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - PROFILE 


Bn«P,XS  .USER«PR0F iLt 

H*p  23-R  Oi/OH-O?; 

35  l,CI 

IN  USER.PROFILE..I«W 

..SLOP 

ADDRESS  lI**ITS 

OOlOOO  016115  OHuOOU  0S0I3S 

Starting  address 

0 1 ROAS 

NoBDs  decimal 

67JR  1B«NK 

H190  OBANK 

SEGMENT  M*IN 

OOlOOO  OlAl IS 

090000 

OSOl 35 

nsmto/fcr 

1 

00 1 oofi 

Onio2i 

NrBLKA/FOR 

1 

0C102? 

OOlORH 

NRWNDA/FOR 

1 

00 1 Ohs 

001126 

2 

090000 

09001 1 

NmEFC/FOR 

1 

Otl  127 

Ool313 

2 

090012 

090031 

NFTCHA/FQR 

1 

00! 31H 

001*27 

2 

090032 

090057 

ninpt«/for 

1 

001*30 

00251  H 

2 

0900*0 

090103 

nftvs/for 

1 

0025|S 

002537 

NCLDSA/FCH 

1 

0025H0 

0027H1 

2 

090109 

090 1 35 

NwBLKS/FOR 

1 

0027H2 

0P3053 

NBSBLS/FOR 

1 

00305h 

UC3i 1 H 

NuPDA>/FOR 

1 

0031  IB 

OO3150 

NBFOOA/FOR 

2 

090136 

092337 

NBDCVS/FOR 

1 

0031  Si 

003276 

2 

092390 

092902 

NCNVT«/FDR 

1 

003277 

003520 

2 

092903 

092977 

NININS/FQR 

1 

003521 

Op371 1 

2 

092500 

092503 

NdTIN«/FOR 

1 

OC37i2 

00'121H 

2 

092509 

092515 

NoOTA/FOR 

1 

00R21B 

0PS3H 1 

2 

092516 

092552 

NFMTS/FOR 

1 

0C53H2 

006225 

2 

092553 

092630 

nioers/for 

1 

nu*226 

00*992 

2 

092*31 

093001 

NfCHKA/FOR 

1 

On*HH3 

007933 

2 

093002 

093155 

H 

093156 

093227 

NtABS/FOR 

2 

093230 

093909 

Eru« 

OEXPS/FOR 

1 

no7H3H 

0(j7*09 

2 

093905 

093990 

NEXP9A/F0R 

1 

007605 

□C7727 

2 

093991 

093961 

NcRRf/FOR 

1 

007730 

0|0357 

2 

093962 

093671 

S«RTf /FOP-JPL 

1 

0 10360 

0|0916 

2 

093672 

093676 

nstopi/for 

1 

010M17 

0i09SH 

2 

093677 

093713 

nlouta/for 

1 

0 lORSS 

01  1530 

2 

093719 

093751 

NlINP«/F0R 

1 

011531 

0|  3921 

2 

093752 

099156 

NIERA/FOR 

1 

D13‘(22 

0|  357  3 

2 

099157 

099276 

NoBUFA/FDR 

1 

01 357H 

0|  3*35 

2 

099277 

099277 

N|NTRA/F0R-JPL 

1 

013636 

0|  H062 

2 

099300 

099363 

BLANRACOMNON  ICOMHON  dLOCM 

Profile 

1 

019063 

1)1559S 

0 

099369 

050069 

2 

blankacommon 

low 

1 

0155H6 

0|S600 

2 

050065 

050075 

3-28 


5040-27  (Change  1) 


TABLE  UB.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - PROFILE  (contd) 


t oi<:6oi  O16IIS 


0S007*  OS013S 
dLANKtCOMMeiM 


EMHY/ BLOCK  ( ELtf’CMT  1 

• •••  If  Fe  urNCK  1)  k-r  elfmem  »••• 

*STOFr(NIER»l 

flOU  t < 

BL*HificoMMON(  Common 

BLOCK  ) PRC'F  ILl  ,Sl.l'P 

8L* ( NBFOO* 1 

iJFCNK  f 

BS18L*( NBSBL*  I 

fiFCMK  t , HOT  1 r*  , f.(r  F8 

BiL« 1 NBFOO*  1 

riFCHKf 

BiO*(NBFOO*) 

UFCHK* 

B2L»(NOT-OEFINeOI 

riF  CMK  i 

B20*(N0T-0EFINE0) 

NFCHK  i 

CENOS ( ERU*  ) 

NINFRt 

CFE(NFCHK<) 

NOT  1 NA 

ClOSF»(NCLOS*  1 

frCHK«,N*tFi 

COHt ( ERU<  I 

NSTOHI 

CSFi(ERU») 

NCLOSF ,'U  CHK* 

0EXP(0EXP«  I 

PROF IlE 

0RAIN((NWBLK<  ) 

NFCHK*  ,NOT  I Ni,MK,.NOH  ,N»EF* 

ERR<(ERUt) 

nIOERK.NSICP* 

exit(nstop*  » 

NFCHK*, NlwTR* 

exitkeru*  ) 

►iSTOPF 

EXTPU*(NST0P<) 

N1NTR3 

FHSJr* ( NOUT* ) 

NOBUFJ 

FmS20*(N0UT*) 

NOBUFt 

PlELD«(NERP»l 

WINTR* 

f ITEM«tERU*) 

NCLOS* , NFCHK* 

FmTOP ( NFMT»  I 

NOUT* 

FNCTBt(NFCHKf ) 

NFTCHA.Not  IN*  ,tJS»  TC» 

lALLt(ERU«> 

MNTRF.NSTOP* 

IOCOD*(NIER*l 

NFCHK*,NFMT»,NrTtH*,NL |NP*,NL0UT»,N0BUF»,NRIKN0B.NWEF» 

IOERRSINERR*  I 

NFCmK* 

IOW( lOW) 

profile 

tOWS(ERUS) 

IOW.NMSBl?  fNCLPSt .NFCHK* ,NFTCH* ,NI OER* 

lOXERUS) 

NCLCSI.NROLKk.NWbLK* 

L06N0< 1 NOBUFl ) 

NLOUT* 

HBS(ERUS) 

NP5BLy,NCLOS»,NF(  HKI,NFTCH»,NOBUF»,NRIiiIND«,NUPO*» 

NFS(ERUf  ) 

NFTCM* 

naboxnftvci 

NFPT* 

NaBISINFTVK  ) 

NFHT* 

NaB2*INFTV«I 

NF  MTS 

NaB3*(NFTV*» 

NFHT* 

NaBR*(NFTV»I 

nfht* 

NABStINFTV*) 

NFHT* 

NaBABINFTVS) 

nfht* 

NAB7f(NFTV*» 

Nf  MT» 

NAVCflNFTVX 

NFHT* 

NBCW* (NtOERI  1 

NININK 

NBFSTBiNFCHKtl 

NFTCMS,NOTlN»,NXfF* 

NBFHGX  NFCHKt  1 

NFTCM»,NOTlf:»,MWEF* 

NBFRLXNFCHKO 

NFTCH*,NOTlN»,NX[F* 

nbfrsbinfchkii 

NFTCM*, NOTiN* 

NBIPABINtNPTfl 

NISINt 

NBIBi NBOCV*  1 

NLOUT*, NOJT* 

NBLNKIINQUTC) 

1 

NORUF  f 
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TABLE  UB.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - PROFILE  (contd) 


CnTNY/BLOCK(CLcMENT) 

••••  referenced  by  elenent  •••• 

NlTOD«(NeMN«l 

NFCHKS 

NCAKNICRB) 

NFHTS 

NCCCIINOUTf 1 

NOTINS 

NCDOri(NINTRt) 

NCNVTS 

HCtrKNSTOPSI 

NCLOSS 

NCNARStNIERf) 

NFHTS 

NCJN|02B(NIERI) 

nioeps.nlouts, notins 

NCNV9f(NCNVTSI 

NINPTS.NliNFS 

NCOM3»|NrMT*l 

NCNVTS, NINPTS 

NCSP*(NIER»» 

NIN!NS,NlNPTS,NLiNPS,NLOUTS,N0TINS,N0UT» 

nciulo(nierbi 

N8DCVS,NFCHiKS,NLtNPS.NL0UTS,N0TINS 

NCIULI INIER*  ) 

nbocvs,nfchks,nlinps 

NDBCVSiNCNVTt) 

NFHTS, NlNPTS.NLlNP* 

N0BF|S|NCNVTt) 

NINPTS, NlINPS 

NDBINSliYCNVTt) 

NFHTS, NINPTS, NLiNPS 

NOBlStNCNVTf ) 

NFHTS, NLINPS 

N0Bl,Y«(  NFMTf  ) 

NINPTS 

N01<i*(NB0CV<) 

NL0UTS,N0uTS 

NOOUTf  INBDCVO 

NLOUTS,NOUTS 

NEEf (NSTOPBI 

NERRS, MNTR* 

NEFCLt(NIOER() 

NFTCHS,NInINS,NInPTS,NOT|NS 

NeRCRXNIOERB) 

NCNVTS,  NFMTS, NINPTS, NLINPS 

NERCTXNtOERO 

NCNVTS, NFTCHS, NLINPS 

NERRAf ( NERRS ) 

oexps,nexp9S, sorts 

NeRRB* ( NERR> ) 

DEXPS,NEXP9S 

NeRRCI ( NERR* ) 

NEXP9S 

NERR* I NERRI ) 

SORTS 

NERRJf  (NERRO 

profile, SI  UP 

NeRU((N|0ERI) 

NFCHKS,NiMNS,NLoUTS,NOBUFS,NOTINS 

NETF*(N0UT*I 

NFHTS 

NEXITAINOUTB) 

NOTINS 

NEXP9l(NEXP9f 1 

profile 

NFAR* ( NFMTl 1 

NINPTS, NOUTS 

NFBYlf INIOERI) 

NFTCHS 

NFCAf INCNVTS) 

NFHTS 

NFCHKS 1 NFCHKA ) 

NLINPS,NLOUTS,NOnUFS,NRHNDS,NWEFS 

NFCHiNCNVTil 

N ’NPTS,NlINPS 

NFCHf (NCNVTB) 

NINPTS, NlINPS 

NFCSS(NCNVTf I 

NFHTS 

NF0B*(NCNVT*> 

NINPTS, NlINPS 

NF0P»(NCNVT*( 

NBOCVS 

NFCCf (NFMTB) 

NINPTS, NOUTS 

NF6Tf (NFHTBI 

NINPTS 

NFHNSSINFHTf ) 

NOUTS 

NFMTRf INCNVTS) 

NFHTS 

NFMTS I NFMTS ) 

NOBUFS,NouTS 

NFH9ASINFHTSI 

NINPTS, NOUTS 

NFNtOlOSlNIERS) 

NFHTS 

NFNIOISINIERS) 

NFHTS 

NFNSIS INBOCVf ) 

NOUTS 

NFNS2SINB0CVSI 

NL00TS,N0UT* 

i 
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TABLE  UB.-STAT  COLLECTION  AND  SUBROUTINE  CROSS-REFERENCE  - PROFILE  (contd) 


(NTRr/BLOCK(ei.EHENT) 

••••  REFEPCNCEO  by  ELERENT  •••• 

NrNS3*INB0CVI) 

NLOUTB.NoUTB 

NFBCtINIEBBI 

ML OUTB, NOT IR*. NOUTB 

NFFKTKNFCHKtl 

NCLOSB 

NFRAKNFHTB) 

NIN1NB,NL|NPB,NOtINB,NOUTB 

NFBCIINFHTS) 

NINPTB 

NFRfif INIERBI 

nfhtb.rinptb 

NFRHIINIERO 

NININB.NjNPTB.NtiNPB 

NFRJKNIERB) 

NlOUTBtNOTINB.NOuTB 

NFRONFf(NlOER>| 

NFTCHS 

NFRZKNIERO 

nfhtb.ninttb.moutb 

NFRZfS(N|ERB| 

nfmtb 

NFS6«(NCNVT»I 

NINPTB, NL INPB 

NFTCB«(NFTCHt) 

NlNlNt 

NFTCHf (NFTCMFI 

NININf 

NFT6l.»INIER*l 

ncnvtb.nfntb.mnptb 

N6C»»|NFRT») 

HINPTB.NOI TB 

NhPFAS(N|ER*I 

mlInpb,nloutb,nobutb,nr"Ndb,nnefi 

NHVCSINFTVtl 

NFNTi 

Nl IC»|N|NPT»I 

NININF 

nindiinbdcvf) 

NLOUTl ,NOlT» 

MINI 1I(N|NIN«| 

NL INP* 

N|NTRI(NINTRf) 

PROf ILE 

N|oER»(N|OER*) 

NB5bL*,NCL0SB,NFcMRB,NFTCHB,N0TINB,NNBLRB,NRNN0»,NNBLKB,NREE» 

NlOEkBAlNIOERB) 

NOBUFI 

N|OIVtlNIER*l 

hFMT» 

NIOKINIER*) 

profile 

NlOZVFINIERt) 

NOBUFt 

RlOZ» 1 NIERB I 

PROF  1 Lt 

NI03V*B|nIER»I 

NF  MT» 

NI03VB1NIERB) 

N|02»*N|ERBI 

NF  HTB , NOT  1 N» 

nflnbinieR*) 

N IN  IM  ,NL  I NP»  ,MOT  INI 

NkL2B|N|eRB) 

Nl  N I NS.NL  |NP*  ,».0r  INF 

nliobiniehb) 

nlinpf.nlcutf. 

NLLCBINIERB) 

ninhtf.nlinp* 

NlLPB(N|ERBI 

NININF, NlINPF 

NLRTB(RIERB) 

NIOERFiNl INPF.NLoUTF 

NlTBBINIERBI 

NlOERF,NLINPi,NLpUTF 

Nn&90B(NIER*I 

N|NPTF,Nl|NFF 

NnRSXB(NIERB) 

NLINPI  ,NLt,UTF 

nolcbinierbi 

NLOUTt 

R0L«B(NIERBI 

notinf 

NOTI iBtNOTINFl 

MLOUTF.NOtUFF 

NPCTBINFmTB) 

ninpts,nolt» 

NpR* ( NOUTB  I 

soil 

NpUB ( NOUT* ) 

NOT  I N» 

NpW2B 1 nFmTB  » 

ninptf 

NpFlBINFHTB) 

ninptf.noi'TF 

NRBFABtNFCHKf ) 

MbEF  ft 

MRBFF ( NFCHFB  1 

nclosf.nr^ndf 

RRDBiNINPTB) 

II  INI  NT 
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APPENDIX  B 
PROGRA^^  LISTING 


B-l/B-2 


r ' 

i 

50U0-2T 

..  - ■ 

ACOMONS 

»llchn«  p«oc 

parameter  NivB-9,  NPCDCaSii  NPS6«160,  NSl,«20 
parameter  N08-21,  NTB"6i  nES6»N|VB*| 
parameter  fiD  I F»NPC06*NPSG 
REAL  MSAPnR 

COMMON/OSPA/  aCTRL.APPSC.AT'^EXC, AVGHL.BCUR.CB.CCM.DATE". , 

. DATE»OECLiniF|V(NDIF«2l , OL » E T , HOURT . HF I N AL , MS APWR , 

. NAPS6.N0,PBATt.QB,QB*TT(N(JB),Q0T,RL|S0F,SI tNPSai  , 

. SPGR,SRT,SST,SV(NPSG),TBATT(NTBI ,TBFR2,TCZ .TMETLA, 

. TlMEH.TRE5t(RESG),TRESUTtNESG,2),TRESV(NESG),TS*C. 

. rSAF,TTAMB,TTESG,TTPCO,VBAT,VBATT(NlVB,NOB,NTB| • 

. VBUS.VINCIV, VV0C,V2(NPS6| ,X1 INPCDGi ,XtB(NIVBI  , 

. XIBATT(NIVB),«ICHMX,XnsC,Xl2(NPSGl  , X N ^ X V ( NPCD6  I , 

. XVBtNiVBI.ZHNSUl.ZREl  .ZRFV.ZV  (NSL  I 

erd 

COHON*  PROC 

parameter  N8ETAB«16,  NETA«21,  NTCZIV^IO 
parameter  NVCHI»lOi  NVLB«lO,  NXIHJ-IO,  NZDIMP-10 
DIMENSION  TLLIIIAI.  TLOIIAiISI 
data  PI/t. 1R1592AS/ 

DATA  DEGRAD/0.0I7RS32R/  0 OEGRAD  • PI  / IBO.O 

DATA  0Mt5A/a. 01 72028/  8 OMEGA  ■ 2,n  • PI  / 36S«2R2 

COmmqn/INPUTi/  AA(NETA,5,5IiACSTD,BETAB(NBETAB,8I,BI(5Ii 
, 3TEMP(NRETAB1,CLSIT|6),CLST(6,7I,CLSTT(7I , F A I 7 , 5 I I MEB6E  , 

. NBtEMP.NCOeG.NCLSI ,NCLST,NCTEMP,NOTEMP,NRO,NROE,NrSCEL, 

. NSOC .NSUNMW.NVDEG.NwBT ,Po (3,2I,PH3,2I,P2(3,2I,P3|3,2I. 

. R0E(23),«SCELL126),SADEGC(36,2),SADE6V(36,2ltS0C(NETA|, 

. SUtiLlT{23»,SUNMW(8),TCST0,TEMTAB(24)|TLII6,I6l,TPl5lt 

. VV ( 30  ) , XCSTOi  X I I ( 30  I 

C0MM0N/INPUT2/  ACELL,COEGa,CDEGB,CLR,CN,CURZ(  i0,2|  , 

. OEBUG.OTAMBI  ( 25,2  I ,DTTAH  3*4,2  » , OT TESG , DTTPCD , 

, OTTPSG,i<DER,HoZMX, ICMRT, IFTYPE, IPSG, ISH, ITAPE, 

, n34TT,nCURZ,NdTAM0,n0TTA,NESP,NP,NS,NtcZT,NTCZV, 

. MVCHIS.NVCHI0,NVCHT,''IVCHV,NVLBT,NVLBV,nVR1SA, 

. NVRI0,nXIHT,NxIHV,N2DT,NZ0V,NZRA,NZRS,nZS.nZSM, 

. NZTC ,PHI AA0,PhI AtD,8OFF,Q0N,REFLH,RLL,SPECOR, 

, TC2IV(in,10),TCZT(10l.TCZV( 1 O I , THEU » 0 , THEUOD , 

, TSmREF,TTAVE,TZ3R,TZN,VCHIST(  10.2) ,VCHIT( 10,  lOI  , 

. VCHIOT(10,2)  , VCHTT(  (0) ,VCHVT ( JO) ,VBUSMN,V0E6A, 

, VLBT(io,IQ);VlBTT(10>»VLBVT(10|,VMaXIV;  VMIMV, 

, VLR,VriSAT(10'.  2),VRlOT(lO,2),VSAINC,VSHTOR,V2BR, 

, XIHIT(10,I0),XIHTT(10),XIHVT(10),2DIMP(10,I0), 

. 70IMPTll0),Z0IMPV(i0),ZRAT(10,2),2RSTli0,2), 

. ZShTABJ  )0,2)  .ZTCOEFI  10,2) 

equivalence  |TLL1(1),TL1I,I)),  (TL0(I,I),TL(1,2)) 

END 

DSCmN*  proC 

parameter  NrcOCH«lO,  NDCDE“I0,  NDCUNZ^IO^  N0C0PS»10 
COMMON/OS/  8HCEST,BHCHMX,aRDEST,BR0STD,CBAVAL(30)  , CBM A X , CELP AC  , 

. DC’JAT  ( 10,2  ) ,Dc0CHT(  10,10)  .OCOCNTl  JO)  .DCOCPTI  10)  ,OcOCT(  10)  , 

. DCDET(|0,lO),OCDNNT(IO,2),DCONPTllO,2),DCONZT(lO,jo,2), 

. OCDNT(io),OCDPNT(lO) .OCOPPT ( JQ ) .OCOPST (10,101 ,00DT ( 10,2)  , 

• UURAM,owDAT(IO,2) ,0WDCHT( 10,2 ) ,0M0ET( 10,2 ) ,0W0PST( 10,2  ) , 

, DW0NZti10,2,2i,FRCELI-. I nofls , NB A TP , NOCO A , nqcoc , ndcocn , 

. NOCOCP,NDCON,NOCDNN,NdCONP,NOCOPN,NDCOPP,NOOD,NDWOA,NOMOE, 

. NOw0Ch,NDNDNZ,nDWDPS,NPREQ,NSaP,QBRES,SARES,TBDSTD 
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f 

I 


DATA 

data 

data 

data 

data 

data 

DATA 

data 

data 

DATA 

1 

2 

2 

data 

data 

data 

data 

DATA 

data 

data 

DATA 

data 

data 

data 

data 

data 


U. 968,0, 960, O.’SO.O.Vao.Q, 920, 0.9J0.0.’00i 
0,890, 0,880, 0,870,0,850,0, 830^0, 787, 0,000/ 

AA  I 1 , 3 , H ) / 1 ,000,0,998,0,995,0,992,0,988,0,989,0,97  6, 
0,968.0,960,0,950,0,930,0,920.0,910,0,900, 
0,890,0,880,0,870,0,850,0,830,0,787,0,000/ 

AA(l, 9, Ml/1, 000,0, 976, 0,956, 0,990, 0,930^0, 920,0,910, 
0,900,0,880,0,860,0,833,0,817,0,800,0,782, 

0.765, 0,797,0, 7 30, 0,885, 0,690^0, 523, 0,000/ 

AAll, 5, 91/1. 000,0. 835, 0.670, 0.610, 0,585, 0.560, 0,590, 

0.525, 0.510, 0.9  90, 0.970, 0.960 ',0.935, 0.922, 
0.910,0.396,0.375,0.359,0,300,0,208,0.000/ 

AA  I 1 . 1 ,5  1/1.000,0.998,0,995,0.992,0.988,0.989,0,976, 

0,968,0.960,0.950,0.930,0,920.0,910,0,900, 

Q, 8 9o, 0. 8 8d, 0.8  70, 0.850, 0.8 30  Jo, 78 7,0. 000/ 

AAll. 2, 51/1.000,0.998, 0.995, 0.992, 0,988, 0,989, 0.976, 
0.968,0.960,0.950,0.930,0.920.0.910,0,900, 
0.890,0.080,0.870,0.850,0.830,0,787,0.000/ 

AAll, 3, 51/1  . 000, 0,998, 0.995, 0.992, 0.988, 0,989, 0.976, 
0.968,0,960,0,950,0.930,0,920,0.910,0,900, 

0.890, 0.880,0. 870, 0.850, 0.830, 0.787, 0.000/ 

AAI  1,  9,5  )/ 1. OOO, 0. 976, 0. 956, 0. 990, 0i930i0.920, 0.910, 
0.900.0.880,0.860,0,033,0.817,0.800,0.782, 
□.765,0.797,0.730,0.685,0.690,0.523,0.000/ 

AAll. 5, 5171, 000,0.835, 0.670,0.610, 0,585, 0,560, 0,590, 
0.525,0.510,0.990,0,970,0.960,0.935,0.922, 

0.9 10, 0.3 9 6,0.3 75, 0.35 9, 0.300 To. 2 08, 0,000/ 

ACSTO/9.0/ 

ADl/o. 58, 0.6, 0^65, 0,7, 0.75, 0.775, 0.8, 0,825, 

0,85, 0,875^0.9, 0.925, 0,95,0, 975, l.oj 

0,0,0.05,0.2,0,9,0,88,1.18,1,5,1,91, 

2.9,2.97,3,70,9,35,5.3,6,2,7.7/ 

ADZ/0. 75, 0.775, 0,8, 0.826, 0,85, 0,9, 0,95, 1,0, 
0.0,2.0,9.0,6.3,8.8,19.9,22.3,30.0/ 

BETAbI  I, I 1/2. 235, 2. 20’, 2. 199, 2. 198,2, 202,2.21 6, 2. 230, 2, 299, 
2.258,2,272,2,286,2,300.2.319,2.328,2,392,2.356/ 
8ETABI  1.2 1/2, 2 95, 2. 21’, 2, 2 00, 2. 192, 2. 196, 2. 210, 2. 2 29, 2, 238, 
2.252.2.266,2.280,2.299,2.308,2.322,2.336,2.350/ 
BETAb(I,3)/2.158,2.185,2.211,2.229,2.239,2.231,2.2i9,2.|96, 
2, 169, 2. 123, 2. 08 1,2. 0^8,1. 875.1. 680, 1.990,1 .300/ 
BETABI 1 ,9 |/2.295,2.3i8,2.338,2,353.2.356,2.399,2.3o9,2.273, 
2T237, 2, 201, 2. 165, 2. 192, 1.977, 1.800,1.635,1.963/ 
BETAH I 1,5 1/2. 338, 2. 360, 2. 378, 2. 392, 2. 395, 2. 382, 2. 390, 2. 303, 
2.270,2,293,2,222,2,199,2,039,1.871,1.709,1,599/ 
BETAb  I 1.6 1/2, 375, 2. 900, 2, 920, 2. 990, 2. 995, 2. 931  , 2. 392, 2, 355, 
2,327,7.305,2,283,2.260,2.095,1.932,1.770,1.605/ 
BETAS! 1 .71/2.906,2.928,2.950,2.962,2.975,2.956,2.923,2.399, 
7,367,2.39  1 ,2,316,2,283,2,120.1.958, 1.795,1.630/ 
BETaB I 1 ,8 1/2. 928, 2. 950, 2. 971  ,2.992,3.000.2.986,2.960,2.931  , 
2,898,2.863,2,826,2,786,2.620.2.990,2,290,2.190/ 
81/0.0001.0.001,0.005.0.5,1.0/ 

8TEMP/ I 60. 0,1 90,0,120 >0,1 00. 0.80. 0,60. 0,90, 0.20. 0,0.0, 
-20.0,-90  To, -60* 0,-80. 0,-1 00, 0,-1 20, 0,-1 90,0/ 

CL5 IT/0. 25, 0^55,0,77,1, 17, 2. 03, 3, 05/ 

CLST/1. 112,1,162, 1.190, 1.235, 1.360. 1.930, 
1.089,1.129,1,161.1.200,1.291,1.361, 

I .072, 1 T loo. 1 . 130. 1 . 157, 1 .232, 1 .282, 
1.069,1.089,1.116,1.139,1.207,1.299, 


1 


i 


I 


f 


I 
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1,032,1.051,1 .060,1 .078, 1 ,0V», J , »J J , 

I. 016, 1. 025, 1.030,1. OHS, I.0<t7, 1.062, 

1.008, 1,016,1. 01’, 1.026,1. 031, 1,0 37/ 

CLSTT/0. 3, 0.1, 0,5, 0.6, 1.0,2. 0,3.0/ 

FA/0.3o20,-22.730,-0.227,-0,2130,3.85lOO,0.0020,-OiS50, 
0,0000,0,00700, -0,050,-0. 0015, -0.12 20,-0. 1S6,-0,00S0, 
368.11,21.5  200,-1  , 1 10 , - I , O’QO , 0 , 58000 , -0 . I 80 , 0 , 28000  , 

0. 1 71 7 ,-0,031 1,0. 0032, 0,00210,-0,0013, 0,0000, -0,0008, 
0,0705,-0. 01 10,0, 007  3,0,00 150, -0.0031, 0,0001,-0,0006/ 
MEKCiE  / 1 2/ 

NAOi/15/,  NAD2/fl/,  NBATT/I/ 

N8TE1P/16/,  >JClS1/6/,  NCLST/7/ 

NHOE/23/,  NRSCFI.726/ 

NSOC/21/,  N3UNM1/8/ 

NHO/5/,  NWRT/6/ 

PO/0.89«,0.9o8;o. 817, 1.01, 0.721,0. 95’/ 

Pi  / 0.00Q26, -0.0321  1 ,-0.01277,-0,01371,-0.00652,-0,02301/ 
P2/Q.0021 ,0.01 02,0,0036,0. 00553,0.001’! .0,00787/ 

°3/-0. 00035, -0.001 11,-0.00057,-0.00068,-0.00017,-0,000*1/ 
QIA 77/0.00,0,03,0.05,0,10,0.15,0,20,0.26, 

0.35,0. 40,0.15.0.175,0,50,0.70,0,75, 

0.80, 0,36, 0.875. 0.87,0. ’2,0. ’1,1, 00/ 

RoE/O. 07600, 0.05100, 0.08030,0.031 30, 0.0  2550, 0.02120. 

0.01  10 0,0. 00710, 0.00570, 0.00*80,0. 00381  , 0.00336, 
0.00261, 0.00223, 0.00200,0. 00 177, 0.00 168, 0.00  1 18, 
0.00132,0.00121,0.00120,0.00122,0.001211/ 

PSCELU/O. 1887, 0.1816, 0.1712, 0.1668, 0,1596, 0,1521, 

0.150’. 0.1158, 0.1100, 0.1 350, 0.1311, 0.1283, 

0.1262, 0,1210, 0.1213,0, 1176, 0.tl30;0. 1075. 
0.1016,0.0957,0,0701,0.0860,0.0823,0,0785, 
0,0718,0,0707/ 

SF 1 LO/28/ 

500/0.00,0.03, 0,06, 0,10, 0.15, 0.20,0,30,0. *0,0, So, 0,60, 0,70, 
0,7 5, 0,8 0,0. 8 25. 0.85, 0,8 75,0, ’0,0. ’25, 0,95, 0,975, 1,00/ 

S UN  M..f/510. 0,397. 0,253. 0,1  39. 6, 100, 0,50. 0,25. 0,6,0/ 

SUNl IT/S. 0 .6. 0,7. 0,8, 0,7.0, 10,0. 15.0,20.0.25.0, 

30.0. 10.0.50.0.75.0.100.0.120.0.110.0, 

160.0. 200.0.253.0.300.0.3’i,0,5or.0,510.c/ 

T0ATT/-IO. 0,-20,0,50, 0,70, 0,70, 0,120.0/ 

TC5T3/60.0/ 

TEMTAB/-110.0,-l2Q.O,-100.0,-80.0,-6q.O>10.0, 

— 30.0,  — 20.0,- lO. 0.0. 0,10. 0.20.0, 30.0. 

10. 0. 50. 0.60. 0.70. 0.80.0.90 .0.1 00.0  I 

110.0. 120.0.130.0.110.0.150.0.160.0/ 

TL  / 16*0. 0.0. 3, 0.7, 11*0, 0,0. 5, 2,0, 11*0. 0,0.1 •3.6, 11*0,0, 

1. 0,5.0, 11*0.0, 3,0, 3, 0,1160. 0,3. 0,1,0, I *70. 0.0. 3.0.7 , 
0.3, 0.7, 0.3, 0,7, 0.3, 0.7 .0.3, 0.7 ,0.3,0.6.160.0,0.1,0.4. 
0.8.3.6,1260.0,0.1,0.6,2.0,5.0.1 260.0,1 .0,9560.0/ 
TP/-10.0,-20.0,50.0,90.0, 120.0/ 

VBATTI  I , 1,  1 1/1,96  18,1.9808,1,9997,2,1850,2.2923, 

2^31 17, 2, 3408. 2, 3750. 2 >3797/ 
veATTl  1,  2,1  I /I.  9808, 1.9997, 2, 01 87, 2, 1792, 2, 3085, 

2^3531 ,2.3702,2.3815,2.3892/ 

V6ATT ( I . 3,  1 1/1,999  7,2,0187,2.0378,2,2230,2.3151  , 

2. 34  26, 2. 379  7, 2. 3910, 2. 3988/ 

VBATTI t,  1,1  1/2^0  187,2,0378,2.0567, 2.2167, 2. 3275, 
2.3702,2.3892,2.1035,2.1083/ 
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[j»TA  VB*TT(|,  b,  1 )/2.0‘<73,i. 0662, 2. 0871  ,2.2662,2,3370 

2.376'»,2,39‘*q,2.*+0B3,2,‘*130/ 

0*TA  V0ATT(i,  6,  I 1/2.0757,2,0998,2, |0»0, 2. 2705,2,3966 

2.3868,2,8073,2.9215,2.9263/ 

DATA  VbATTCl,  7 , 1 | / 2 . M 3 7 , 2 , 1 3 28 , 2 . I 660 , 2 . 2 78  I , 2 . 369  I 

2.3921,2.9177,2,9320,2.9367/ 
data  VBATTll,  8,11/2.1517,2,1707,2.2050,2.2896,2.3679 

2,3988,2,9272,2.9915,2.9962/ 
data  vaATTli.  9,11/2.1802,2,1992,2,2325,2.3123,2.3731 

2.911  1 ,2.99  15,2.955  7,2,9605/ 

VBATTI  1,  10,1  1/2.20  7 8,2.2268,2.2610,2.3391  ,2.3873 
2.9225,2,9557,2.9700,2.9797/ 

VBATTI  1,  1 1 ,1  1/2.2372,2.2562,2.2919,2.3550,2.9  006 
2.9320,2.9700,2.9893,2.9890/ 
VBATTll, 12. 11/2, 2657, 2. 28 9 7, 2. 3218, 2, 3760, 2. 91 30 
2.9905,2.9893,2.9985,2.5032/ 

VBATTI  1 , 13,  11/2. 2752, 2. 2992, 2. 3322, 2. 3069, 2. 9292 
2.9662,2.5127,2.5270,2.5317/ 
VBATTll. 19, 11/2. 2992, 2. 3133, 2. 3917, 2. 3988, 2. 9386 
2.9819,2.5912,2.6555,2.5602/ 

VBATTI  1,  16, 11/2.2990,2.3180,2.3965,2.9035,2.9519 
2.5270,2,6910,2.6652,2.6600/ 
VBATTll, 16, 11/2. 3038, 2. 322 7, 2. 3512, 2. 9083, 2. 9652 
2.5726,2,7907,2.7650,2.7598/ 
VBATTll, 17, 11/2.3133, 2. 3322, 2. 3589, 2, 9130, 2. 9710 
2,6999,2,7882,2.8025,2.8072/ 
VBATTll, 18,11/2. 3227, 2. 3917, 2. 36  55, 2, 9177, 2. 9766 
2.6172,2.0358,2.8500,2.8597/ 
VBATTll, 19,11/2. 3917, 2. 3608, 2. 3797, 2. 9 25 9, 2. 9938 
2.6399,2.3597,2.8690,2.0738/ 
VBATTll, 20, 11/2.3979,2.3669,2.3869,2.9301,2.9999 
2.6995,2.8692,2.8705,2,8832/ 

VBaTTI  1,21, 11/2, 3608, 2. 3797, 2. 9006, 2. 9925, 2, 5127 
2.6719,2.8738,2.8880,2.8927/ 
VBATTll,  1,21/1.8953,1.9192,1,9332,2.1185,2.2258 
2,2752.2.2992,2.3005,2.3133/ 
VBATTll.  2,21/1.9192,1.9332,1.9523,2.1320,2,2920 
2.2867,2.3038,2.3180,2.3227/ 
VBATTll,  3,21/1.9332,1.9523,1.9712,2.1565,2.2987 
2,2961,2.3133,2.3275,2,3322/ 
VBATTll,  9.21/1.9523,1.9712,1,9902,2.1802,2,2610 

2.3038,2,3227,2.3370,2.3917/ 
VBATTll,  5,21/1,9808,1.9997,2,0206,2.1097,2.2705 
2.3109,2,3275,2.3917,2.3965/ 
VBATTll,  6,21/2.0093,2,0282,2.0925,2.2090,2.2800 
2.3199,2,3908,2.3550,2,3598/ 
VBATTll,  7,21/2,0973,2.0662,2.0995,2.2116,2.2876 
2.3256,2.3512,2.3655,2.3702/ 
VBATTll.  8,21/2.0652,2.1092,2.1389,2.2230,2,2919 
2.3322.2.3608,2.3760,2.3797/ 
VBATTll,  9,21/2,1137,2.1328,2.1660,2.2958,2.3066 
2.3996.2.3750.2.3892,2.3990/ 

VBATTI  I,  10. 2 1/2. 1913,2.  1 603, 2.  1995, 2. 2676, 2. 3208 
2,3660,2,3892,2.9035,2.9083/ 
VBATTll. 11, 21/2. 1707, 2. 1897, 2. 2299, 2. 28 85, 2. 3391 
2,3655,2.9035,2.9177,2.9225/ 

VBaTTI  1,1  2, 2 1/2.  I 992, 2. 21 83, 2. 255 3, 2. 3085, 2, 39 65 
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2.37H0,2.‘'177,2.M320,2.‘<367/ 

OAT*  VB*TT( 1,1 3, 2 1/2.208  7, 2. 2278, 2. 2 657, 2, 3199, 2, 3*2* 

2,3997,2.99*2,2.9*06,2.9*62/ 

OAT*  VB*TT(1, 19,2  1/2. 2278, 2. 29*7, 2. 2762, 2. 3322, 2. 3722 

2.9199,2.9797,2.9890,2,9938/ 

OAT*  Va*TT(l ,15,21/2,2325,2,2615,2.2800,2.3370,2.3866 

2.9*05,2,6795,2.5887,2.6935/ 

DAT*  VB*TT(1,1*, 21/2. 2372, 2, 25*2, 2, 2897, 2. 3917, 2. 3980 

2. 50*1, 2. *792, 2. *886, 2. *933/ 

0*T*  VB*TT(  1 . 17,21/2. 29*7, 2. 2*5 7, 2. 2923, 2. 39*5, 2, 9099 

2.5280,2.7217,2.73*0,2.7907/ 
oat*  VB*tT11  , 18,2  1/2.25*2,2,276  2,2.2  990,2.35  12,2.9  101 

2,5507,2,7*92,2.7835,2.7882/ 

VaATf  ( 1 , 1’,  2 1/2, 2752, 2. 2'792, 2, 3 133, 2. 3589, 2, 92  72 
2,5*70,2.7882,2.8025,2.8072/ 

VBATTI I ,20.21/2; 2809, 2, 3000, 2, 3 199, 2. 3 *3*, 2. 93 29 
2.5831,2.7977,2.8120,2.81*7/ 

VB*TT I 1 ,21  , 2 1/2, 29  92, 2, 3 1 33, 2. 339 1 ,2. 3759, 2. 99*2 

2. *0  99, 2. 00  72, 2. 8215, 2. 82*2/ 
VB*TT(l,  1,31/1;** 26,1. *816, 1,7005, 1.8867, 1.9931 
2.0925,2.0*15,2.0757,2.0805/ 
V8ATTI1,  2, 31/1. *815, 1.7005, 1.71 95, 1.9 000, 2. 0093 
2,0539,2.0710,2.0852,2.0900/ 
VBATTII,  3,31/1 ,7005 ,1.7195,1.7385,1,9237,2,0159 
2,0*39,2.0805,2.0998,2,0995/ 
VbATTll,  9,31/1,7195,1,7385, 1.7575,1 .9975,2.0282 
2,0710,2.0900,2.1092,2,1090/ 
VBATTII,  5,31/1.7980,1.7*70,1.7879,1.9570,2.0378 
2.0777,2.0998,2, lO’O, 2. 1137/ 
VB*TTI1,  *,31/1,77*5,1.7955,1,8098,1,9712,2.0973 
2.0671,2. 1080,2.1223,2.1270/ 
VB*TT(1,  7,31/1.8195,1.8335,1.6*68,1.9789,2,0598 
2.0928,2.1185,2.1328,2.1375/ 
VBATTII,  8,31/1 .8525, 1.8715,1.9057,1 .9902,2.058* 
2.0995,2,1280,2.1923,2.1970/ 
VBATTII,  9,31/1,8810,1.9000,1.9332,2.0130,2.0738 
2.1116,2.1923,2.1565,2.1*12/ 
VBATTII, 10. 31/1, 908*, 1.927*, 1.9*18, 2. 0399, 2. 0681 
2.1233,2.15*5,2.1707,2.1755/ 

VBATT I 1 , 1 1 ,31/1.9380,1.9570,1.9922,2.0558,2.1019 
2.1328,2.1707,2.1850,2.1897/ 
VBATTII  , 12,3  1/1  ,9**5,1.9855,2.02  25,2.07  57,2.1 137 
2.1913,2.1850,2,1992,2.2090/ 
VBATTII , 13,31/1,97*0,1  .9950,2.0330,2.0871 ,2.1299 
2.1**9,2.2135,2.2278,2.2325/ 

VBATTI 1,19,31/1 ,9950,2.0190,2,0925,2.0995,2.1399 
2; 1821. 2. 2920, 2. 25 *2, 2. 2*10/ 
VBATTII ,15,31/1,9997,2,0187,2.0973,2. 1092,2.1527 
2.2278,2.3917,2.35*0,2.3*08/ 
VBATTII , 16,3 1/2,0095,2.0235,2.0520,2. 1090,2. 1**0 
2.2739,2.9915,2.9557,2.9*05/ 
VBATTII , 17,3 1/2. 01  90, 2, 0330, 2, 059*, 2.1  137,2, l7i 7 
2.2952,2.9890,2.5032,2.5080/ 

VBATTI  1 , 18,31/2.0235,2.0925,2.0*62,2. 1 185,2.1779 
2.3180,2.53*5.2.5507,2.5565/ 
VBATTII , 19, 3 1/2, 0925, 2. 06  I 5, 2.0805,2. 1261 ,2.1995 
2.3351 .2.5555,2.5*98,2.5795/ 
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VB*TT  I 


VB*TT ( 


VB*TT I 


VBATT I 


VBATT ( 


VOATT I 


VBATT ( 


VBATT  t 


VBATT  1 


VBATT  ( 


VBATT ( 


VBATT I 


VBATT I 


VBATT I 


VBATT ( 


VBATT  1 


VBATT I 


VBATT  ( 


VBaTT( 


VBATT  I 


VBATT  ( 


VBATT  ( 


VBATT  1 


VBATTt 


VBATT  ( 


VBATT ( 


VBATTt 


,20,31/2 

2 

,21 ,31/2 
2 

, l.tl/l 
1 

, Z.tl/I 

1 

, 3,‘*|/i 
1 

. ‘‘.‘♦•/I 

2 

, 6.**>/l 

2 

, B.**!/! 

2 

. 7,H)/i 
2 

, S,**)/! 

2 

. ’.tl/l 
2 

, lO.t  l/J 
2 

2 

. IS,*!  1/1 
2 

,13,H)/i 

2 

.I**,**)/! 

2 

2 

.lA.**!/! 

2 

,t7,M|/l 

2 

. iSit  )/l 

2 

.I’.tl/l 

2 

.ZO.t  1/1 
2 

,21  .*•  )/l 

2 

, 1.51/1 
1 

, 2,51/1 
1 

, 3,51/1 
1 

, M.SI/l 

1 

, 5,51/1 
1 

, 6,51/1 


.0**82 
.3503 
.0615 
.3722 
.5960 
.6740 
.6150 
.9e7‘4 
.43‘*0 
.6946 
.6530 
,0095 
.68|5 
.0112 
.7  100 
.0204 
.7980 
.0243 
.7840 
.0330 
,8195 
.0953 
.8921 
.0547 
;87i5 
.0642 
.9000 
.0798 
.9095 
.1009 
.9285 
.1156 
,9332 
.1612 
.9380 
,2068 
,9975 
.2287 
.9570 
.2515 
.9740 
.2686 
.9817 
,2838 
,9950 
.3054 
.5295 
,9095 
,5985 
.9209 
.5475 
.9309 
.5845 
,9380 
.6150 
,9994 
.6935 


,2.0672 
,2.5450 
,2.0805 
,2.5795 
,1.6150 
, 1.9950 
, I .6390 
,2.0095 
, 1.6530 
,2.0190 
, 1.6720 
,2.0235 
, 1.7005 
,2.0282 
, 1.7290 
,2.0915 
, 1.7670 
,2.0520 
, 1 .8050 
,2.0615 
. 1 .8335 
,2,0757 
,1.8411 
,2.0900 
,1.8905 
.2.1092 
,1.9190 
,2.1185 
, 1.9285 
,2. 1970 
,1.9975 
,2.1755 
, 1 .9523 
.2.2752 
, 1.9570 
,2,3750 
, 1.9445 
,2.9225 
, 1 .9740 
,2.9700 
, 1.9950 
.2.9890 
,2.0007 
,2.9985 
.2.0190 
,2.5080 
, 1.5985 
. 1.9285 
. 1 .5475 
, 1.9380 
. 1 .5845 
, 1.9975 
, 1.6055 
, 1 .9570 
, 1.6390 
,1.9418 
,1»6425 


,2.0871 ,2 

.2.5793,2 
.2.1019,2 
.2.5887,2 
, 1.6390,1 
.2.0093,2 
, 1.4530, 1 
.2.0187,2 
, 1.4720,1 
.2.0282,2 
.1.6910,1 
.2.0378,2 

,1.7219,1 
,2.0925,2 
. 1.7932,1 
,2.0558,2 
, 1.8002, 1 
,2.0642,2 
, 1 .8392,1 
,2.0767,2 
, 1,8448,1 
,2.0900,2 
. 1.8953,1 
,2.1092,2 
. 1.9257,1 

,2.1185,2 
, 1 .9560,2 
.2.1328,2 
. 1.9445,2 
,2.1412,2 
, 1.9740,2 
,2.1897,2 
. 1.9808,2 
,2.2895,2 
, 1.9865,2 
,2.3892,2 
, I .9931 ,2 
.2.9367,2 
, 1.9997,2 
,2.9893,2 
,2.0190,2 
.2.5032.2 
,2.0206,2 
,2.5127,2 
,2.0399,2 
,2.5222.2 
. 1 .5675,1 
,1.9927,1 
,1.5845,1 
, 1.9523,1 
, 1.6055,1 
,1.9418.1 
, 1.6295,1 
,1.9712,1 
, 1.6599,1 
,1,9760,1 
, 1.4768,1 


.1308,2.2002 

.5890/ 

.1932,2.2135 

.5935/ 

,8193,1.9244 

.0190/ 

,8335,1,9927 

.0235/ 

,8572, 1 .999<4 

.0330/ 

.8810,1.9618 

.0925/ 

.8905,1.9712 

.0973/ 

.9097 , 1 ,9808 
.0406/ 

.9129,1.9883 

,0710/ 

,9237,1,9922 

.0805/ 

,9445,2.0073 

,0998/ 

.9489,2.0216 

.1090/ 

,9893,2.0399 
. 1233/ 

.0093,2.0973 
. 1375/ 

.0206,2.0639 
. 1640/ 

.0330,2.0729 
. 1995/ 

,0378,2.0842 

.2992/ 

,0925,2.0995 

.3990/ 

.0973,2.1052 

.9915/ 

.0520.2.1109 

.9890/ 

.0694,2.1280 

.5080/ 

.0699,2.1337 

.5175/ 

.0747,2.1970 

.5270/ 

.7527.1.8401 

.9975/ 

.7470,1.8742 

.9570/ 

.7907,1.8829 

.9445/ 

.8195,1,8953 

.9740/ 

.8290,1 .9097 
.9808/ 

.8382,1.9192 
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1 .’512, » t»75l 

, 1 

.9893,1,9991/ 

OAT* 

VB*TT( 

. 7,S|/1.4ai5,li7005 

, 1 

.7338,1.8959,1.9218, 

1 .9S98, t .9BS5 

• 1 

.9997,2.0095/ 

DAT* 

VB*TT( 

, 6,51/1,7195.1.7305 

• 1 

.7727,1,8572,1.9257, 

1 . 94*5, I .9950 

,2 

.0093,2.0190/ 

OAT* 

VB*TT( 

, 9,51/1.7980,1.7470 

, 1 

.6002,1.8801, 1.9909, 

1.9789,2.0093 

,2 

.0235,2.0282/ 

OAT* 

VB*TT ( 

,10, 51/1.7754, 1.7994 

, 1 

.8287,1.9019,1,9551  . 

1 .9902,2.0235 

.2 

.0378,2.0925/ 

oata 

VBATT( 

.11 ,51/1,8050,1.8290 

, 1 

.6592,1.9228,1.9469, 

i ;9997,2.037a 

,2 

.0520.2.0547/ 

DATA 

VBATTI 

.12.51/1^8335,1.8525 

, 1 

.8895.1.9927,1.9806, 

2.0083,2.0520 

,2 

.0442,2.0710/ 

oata 

VB*TT( 

,13.51/1,8930,1.8420 

( 1 

.9000,1,9592,1,9949, 

2.0390,2.0805 

• 2 

.0998,2.0995/ 

OATA 

VB*TT ( 

.19.51/1.8420.1.8810 

, 1 

.9095, 1.9**5,2.0049, 

2^0991 ,2.1090 

.2 

.1233,2.1280/ 

oata 

VB*TT( 

. 15,5 !/ 1,6448, 1 .8857 

. 1 

.9192,1,9712,2,0197, 

2.0998,2,2087 

,2 

.2230,2.2278/ 

oata 

VBATT ( 

.14.51/1.8715,1.8905 

• 1 

.9190,1.9740,2.0330, 

2^1903,2.3085 

,2 

.3227,2.3275/ 

oata 

VB*TT( 

. 17,5 1 /I i88l0, 1 .9000 

■ 1 

.9244,1  .9808,2.0387  , 

2^1422.2.3540 

,2 

.3702.2.3750/ 

oata 

VBATT ( 

,18,51/1,8905,1.9095 

, 1 

.9332,1.9855,2.0999, 

2.1850.2.9035 

.2 

.9177,2,9225/ 

oata 

VBATT ( 

,19,51/1.9095,1.9285 

• 1 

.9975,1.9931,2.0415, 

2.2021 .2.9225 

.2 

.9347,2,9915/ 

oata 

vbatti 

,20,51/1,9152,1.9392 

• 1 

.9592,1,9978,2.0472, 

2.2173,2.9320 

,2 

.9942,2.9510/ 

oata 

VBATT* 

,21,51/T;92B5,1,9h75 

, 1 

.94B9. 2. 0102,2.0805, 

2.2391,2.9915 

• 2 

.9557,2.9405/ 

oata 

VBATT* 

, 1,41/1,9297,1,9988 

• 1 

.9477,1.4530,1.7409, 

1 ^8098,1,8287 

, 1 

.6930, 1,8977/ 

oata 

VB*TT  * 

. 2,41/1,9988,1.9477 

, 1 

.9847,1.4*72.1.77*5. 

1.8211, 1.8382 

• 1 

.8525,1.8572/ 

data 

VBATT  * 

, 3,41/1,9477,1.9847 

, 1 

.5057,1,4910,1,7832, 

1.8307 , 1,8977 

. 1 

.8420, 1 .8**8/ 

data 

VBATT  * 

, 9,41/1.9847,1.5057 

, 1 

.5297,1  .711*8,1,7955, 

1.8382, 1.8572 

t 1 

.6715,1.87*2/ 

OAT* 

va*TT  * 

, 5,41/1,5152,1.5392 

1 1 

.5551 , 1.7292,1 .8050, 

1,8999, 1.6420 

• 1 

.8742, 1,8810/ 

OAT* 

V6*TT( 

. 4,41/1.5938,1.5427 

• 1 

.5770,1.7385,1.8195, 

U8599. 1 .8753 

, 1 

.8895, 1 ,8993/ 

data 

vbatti 

, 7,41/1,5818,1.4007 

,1 

.4390,1.7941 ,1.8221, 

U840I  , 1.8857 

t 1 

.9000, 1.9097/ 

DATA 

VBATT  * 

, 8,41/1,4197,1.4387 

, 1 

.4729,1.7575,1.8259, 

1 .8448, 1.8953 

, 1 

.90’5, 1 ,9192/ 

DAT* 

V8*TT  * 

. 9,41/1.4982,1.4472 

• 1 

.7005, 1.7803,1  .891  1 , 

1,8791 , 1,9095 

, 1 

.9237,1,9285/ 

oat* 

vqatt* 

,10,41/1,4758,1.4998 

,1 

.7290,1.8021,1.8553, 

1.8905, 1.9237 

t 1 

.9380,1,9927/ 

DATA 

VBATT* 

,11|4|/1. 7052, 1.7292 

• 1 

.7599,1.8230,1.8484, 

1 ,9000,1.9380 

. 1 

.9523,1.9570/ 

OAT* 

VBATT* 

,12,41/1,7338,1.7527 

• 1 

.7898,1 .8930,1.8810, 

1.9084,1.9523 

, I 

.9445.1.9712/ 

DAT* 

VBATT* 

,13,41/1.7932,1.7423 

, 1 

.8002,1  ,8599,1.8971  , 

1.9392, 1.9808 

. 1 

.9950, 1.9997/ 
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DATA  VBATTd  . 1 ‘t . A | / | . 762  3 . 1 . 7 8 | 2 . I . *0*6  , | i 1 . *0««  , 

1 .9<t9<«,2.00«3.2.0235,2.0282/ 
data  veATTIl.iS|Al/lt7670.1*78A0.U*l‘*5,l«*7|S,l.9|99, 

I .99So,2>I090,2. 1233,2. 1280/ 
data  vBATTII  , 16,6  1/1.7717,1,7907,1.8193,1.87*2,1.9332, 

2^0906,2.2087,2.2230,2.2278/ 
data  VBATTI|,17,*)/|.7812, 1.8002,1 . 8268 , 1 . 88 | 0 , 1 . 9390 , 

2.0629,2.28*2,2.2705.2.2752/ 
data  VBATTII  , 18,*)/1 ,7’07, 1 .8098, 1 . 8 3 35 , 1 , 8857 , 1 . 9 9 <**  , 

2.0852,2.3038,2.3180.2.3227/ 
data  VBATTII  , 19,*)/ 1 ,8098, 1 ,828  7, 1 ,8<l7  7, ) ,8939,1,9*18, 

2.1023,2.3227,2.3370.2.3917/ 

OAT*  VBATTII  , 20 , 6 I / 1 . 8 1 5 9 , 1 . 839** , 1 ,8599,1,8981, 1.9*75, 

2.  1 175.2,3322.2.3965,2.3512/ 

DATA  VBATTII, 21. 61/1.8287, 1.8977, 1.8*8*, 1,91 05, 1.9808, 

2.1  3911,2.39  17.2.3560.2.3*08/ 
data  vv/O. 59590,0. 57 200, 0,59090, 0,52260, 0,50900, 
0,98590, 0,97  308, 0,9*026, 0,9  <*79  3, 0,9  39  61  , 
0.92179,0,90897,0.39793,0,38961 ,0.37179, 
0.35897,0.39*15,0.33333,0.32051,0.307*9, 

0.29 887, 0.23077, 0.16** 7, 0.1025*. 0.0389*. 
0.0,-0.06910,-0.12820,-0.19231 ,-0.25691/ 
data  XCSTO/195.0/ 

data  X I BATT/-1. 0,-0. 1,-0, 05,0.0, 0.05, 0.1,0. 2, 0.5, 1,0/ 
DATA  XI  I / -0,30900, -0^2 93*98,-0,  10*502,-0.092898,0.0, 

. 0.095521 ,0,068053,0.085989,0.099321 ,0.10989*, 

. 0.1  18172.0,  129156. 0.  12828*, 0.131510, 0.1 3927  1 , 

. 0. 1 36109 ,0; 137**9,0.1 38772,0.139*06,0.190152, 

. 0. I 905*9-, 0,  191991,0.191851,0.  19  2129,0.192907, 

. 0.1 92593,0^1 92881  ,0.  193159,0, I 93998,0. 193726/ 

ENO 
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BLKDTA/NI-CD 


**(  1 

. 1 

. 1 lai 

.000 

. 1 .000,1 .000 

•0.997,0 

.988,0.962,0.983 

•0.925, 

C 

.907 

(0.890,0.660 

•0.815,0 

.731 , 0^522, 0.261 

•0.000.5*0.0 

*9(1 

.2 

, 1 l-l 

.000 

, 1 .000, 1 .000 

• 1.000,0 

.997,0,987,0.973 

•0.955, 

0 

.9‘tO 

•0.925,0.902 

•0.861,0 

.788,0.605,0.303 

•0.000,5*0.0 

A*  1 1 

.3 

,11.1 

.000 

•1.000,1.000 

• 1.000,1 

.000, 1.000,0.992 

•0,979, 

0 

.9a7 

•0.956,0.935 

•0.906,0 

.856,0,717,0.800 

,0,000,5*0.0 

AA|  1 

.8 

,11.1 

.000 

• 1 .000.1 .000 

• 1.000, 1 

.000 , 1 .000 , 1 .000 

• 0.996. 

0 

.969 

•0.981 ,0.965 

•0.982,0 

.900.0.780,0.390 

•0.000,5*0.0 

AA(  i 

.6 

,11.1 

.000 

• 1 .000, 1.000 

• 1 .COO. 1 

.000,1.000.1.000 

• 1 .000, 

1 

.000 

•0,997,0.988 

•0.967,0 

.929.0.880,0.531 

,0.000,5*0.0 

A«(  1 

.1 

,21-1 

.000 

, 1.000,0.996 

,0,985,0 

.968,0.939,0.921 

.0.895, 

0 

.878 

•0.853,0.816 

•0,779,0 

.681 .0^583,0.292 

•0.000,5*0.0 

A*n 

.2 

.2>.l 

.000 

• 1 .000, 1 .000 

• 1 .000,0 

.996,0.979,0,963 

• 0,981  , 

0 

.922 

•0,908,0,869 

.0.«36,C 

.765,0,638,0.368 

•0.000,5*0.0 

A*(  1 

.3 

,2  l.l 

.ooc 

• 1 .OOO,  1 .000 

• 1 .000, 1 

.000,0.998,0.990 

• 0,973, 

0 

.960 

•0.985,0,921 

•0.888,0 

.829,0,713,0.806 

,0.000,5*0.0 

AAll 

,2  ).| 

.000 

• 1 .OCO, 1 .000 

• 1.000, 1 

.000,1.000, 1 .000 

.0,995, 

C 

.985 

•0,972,0.955 

•0.925,0 

,878,0,762.0.876 

,0.000,5*0.0 

A*(  1 

.6 

,2|.| 

.OOC 

• 1 .000,1  .ooc 

• 1 .000,1 

.000, 1.000, 1.000 

• 1 .000  , 

1 

.000 

,0,997,0.988 

,0.959,0 

.915,0.805,0.872 

,0.000,5*0,0 

AA(  1 

.1 

1 3 ) *0 

.963 

•0,960,0,976 

•0.967,0 

.983,0,907,0,875 

•0.829, 

0 

,796 

•0.752,0.702 

,0.633,0 

.688,0.855,0.228 

,0.000,5*0.0 

AA  ( 1 

.2 

,31.1 

.000 

. 1,000,0.999 

•0.993,0 

.980,0.989,0.923 

,0.88|  , 

0 

,888 

.0.816,0.758 

•0.700,0 

.602,0.508.0.291 

,0.000,5*0.0 

AA(  1 

.3 

,3|.l 

.000 

• 1 .000,1  .000 

• 1 .C0C,0 

.997,0,980,0.959 

• 0.928  , 

0 

.898 

,0,868,0,816 

•0. 7*8,0 

.666,0.555,0.317 

•0.000,5*0.0 

AAll 

,31.1 

.000 

• 1 .OOo, 1 .000 

• 1 .000, 1 

.OOP, 1 .000,0.989 

• 0,962  , 

0 

,936 

,0.910,0.863 

•0.807,0 

.722,0.620.0.817 

•0.000,5*0.0 

AA|  1 

.6 

,31.1 

.000 

• 1 .000, 1.000 

• 1.000, 1 

.000,1 .000 , 1 .000 

.0.986, 

0 

.968 

,0.983,0.903 

,0.883,0 

.759,0.635,0.817 

,0,000,5*0,0 

AA(  1 

.1 

.8  I.C 

.980 

,0.977,0.920 

•0.902,0 

.866,0.801 .0.755 

• 0.698  , 

(1 

..59 

,0,610,0.562 

,0,896,0 

.825,0,319,0,160 

•0,000,5*0.0 

AAll 

.2 

,81.1 

.000 

,0.990.0.980 

•0,957,0 

.920,0.857,0.81  1 

.0.267, 

0 

.718 

.0.671*0.628 

,0.558,0 

.886,0.389.0.219 

,0.000,5*0.0 

AAll 

.3 

,8  l.l 

.000 

, 1 .000,0,998 

.960,0.910,0.869 

• 0.810  , 

r 

.775 

,0.727,0.675 

•0.605,0 

.529,0,828,0.281 

•0.000,5*0.0 

AA  1 1 

,81.1 

.000 

• 1 .000 , 1 .000 

• 1 .000,0 

.987,0.960,0,912 

.0.863, 

0 

.827 

,0.785,0.783 

•0.655,0 

,567,0.877,0,338 

,0.000,5*0.0 

AA|  1 

.6 

,81.1 

.000 

• 1 .000 , 1 .000 

• 1 .000, 1 

.000,0,976,0.985 

• 0.900, 

r 

.857 

,0.815.0.750 

t0»665|0 

.596,0.871 ,0.261 

•0.000.5*0.0 

AA|  1 

.1 

,5  1.0 

.860 

,0.860,0.853 

•0.639,0 

.810.0.759,0.720 

« 0 • ^ 7o  1 

0 

.632 

,0.595,0.585 

•0.887,0 

.821 .0,326,0.208 

•0.000,5*0.0 

AA  1 1 

.2 

.5  1.0 

.933 

,0.929,0.918 

•0.903,0 

.878,0.825,0.790 

.0.283, 

C 

.7C8 

,0.665,0.621 

•0.557,0 

.885,0.382,0.250 

,0.000,5*0.0 

AA|  1 

.3 

,5l.C 

.992 

• 0.98i  ,0.972 

•0,951,0 

.920,0.869,0,828 

•0.225, 

0 

.737 

,0.700,0.658 

•0.598,0 

.532,0.839,0.251 

•0.000,5*0.0 

AAll 

,8 

.51.1 

.000 

,0.998,0,991 

•0.976,0 

,961,0,909,0.870 

• 0,819, 

0 

.786 

,0.785,0.689 

•0.633,0 

.552.0.870,0.235 

,0.000,5*0.0 

AA|  I 

.6 

,5l.| 

.000 

• 1 .000  t 1 .000 

•0.998,0 

.978,0,936,0,899 

I 0 • ®S  1 • 

0 

.8|7 

,0,776,0.725 

fO»66&iO 

.593,0^882,0.296 

,0.000,5*0,0 

Bt-0 

• 0 2 S 9 0 • 

05,0 

. 1 ,0.25,0.5, 

NS0C»16. 

0aATTa0.0OliO.OI,O.03,0.OStO<l,O.I6«0,2>0i2S,Ot3S,0i5,0.7, 

C«a3,0.86,0«87'o,9?,0«9*«,0.7«,0«*7,0,98,0.99,i,0i 

SOCaO.OO, 0. 2o,0, 80 • 0^ SO, 0.80| 0.20 ,017510, 80 •0.825, 

0.85, 0.875, 0.90, 0.925, 0,95, 0.975, 1,00, 5*0.0, 
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TBaTTbHO.O  ,50,0 

,An^0>0.0.80.0.9B 

• 0, 

TP-HO. 

0 

,50.0 

.70 

•OtSOgOi^SfOi 

VB*TT( 

) * 1 

.137,1. 112, 1.171,1 

.187,1.231, 

.282,1.300, 1 >327 , 1 

.335. 

VBATTI 

. 2.1 

1 • 1 

.153,1.158,1.190,1 

.203,1.251, 

. 306.1, 321, 1 >35|  .1 

.359, 

VB*TT ( 

. 3.1 

) ■ 1 

• 166| 1 • |73| l«205t 1 

.21B, 1.271, 

.321,1.312,1.369,1 

.377, 

VBATT ( 

• 

) ■ 2 

.176,1.181,1.213,1 

.226,1  .281  . 

.335,1.353,1.380,1 

.388, 

v8*TT( 

. b.l 

) a 1 

.193,1 .198,1.230,1 

.213,1.298. 

.353.1,371 , 1 .398.1 

.106, 

VB*TT( 

• 6*1 

) a 1 

.201,1.209,1.211,1 

.251,1.309, 

. 36*1,  1.382, 1.109,1 

.117, 

VBATT ( 

. T.l 

) a 1 

.213.1.218,1.250.1 

•263fl*3l6f 

.370,1.388,1.115,1 

.123, 

VBATTI 

. 8.1 

) a 1 

.223,1.228,1.260,1 

.273,1.323, 

,371,1.392,1.119,1 

.127  , 

VBATT ( 

. ’.1 

) ■ 1 

.236.1.211,1.273,1 

*286* 1 *333* 

.380.1.398,1.125,1 

.133, 

VBATT 1 

.10.1 

) a 1 

.217,1.252,1.281,1 

.297,1.312, 

.388 ,] .106, 1.133,1 

.111, 

VBATTI 

.11.1 

} a 1 

.260, 1 .765,1 .297,1 

.310.1 .355, 

.100.1.118,1.115,1 

.153, 

VBATT ( 

.12.1 

) a i 

• 1 #773| 1 cJCSf  1 

*318*|*36S* 

.113,1.131,1.158,1 

.168, 

VBaTT ( 

.13.1 

) a 1 

.773,1.278,1.310,1 

.323, 1.370, 

.118, 1.136, 1 .163, 1 

.173, 

VPATTt 

.11,1 

) a 1 

•2fi| 1 1 *266, 1 •3l6|l 

.331,1.378, 

.123,1.111 , 1 .168,1 

.178, 

VBATT ( 

.15.1 

) ■ 1 

.289,1.291,1.326,1 

.339.1.383. 

.177,1,115,1.172,1 

.182  , 

VBATTI 

.16.1 

) a 1 

.307,1.312,1.311,1 

.357,1.395, 

.133,1 .151 , 1.178,1 

.13B, 

VBATTI 

.17.1 

) a 1 

»3268l»33l |1*363|1 

.376,1.108, 

.111, 1.159 , 1 .186, 1 

.196, 

VBATTI 

.18.1 

) a 1 

.331,1.339,1.371,1 

.381,I,lil, 

.115,1.163,1.190,1 

.500, 

VBATTI 

.19.1 

) ■ i 

.315.1.350.1.382,1 

.396,1.121, 

.153,1.171 ,1.198,1 

.508  , 

VBATTI 

.20.1 

) ■ 1 

,351,1.359,1.391,1 

.101,1.132. 

.16  1,  1.179,  1.506, 1 

.516, 

VBATT  1 

.21.1 

) ■ 1 

•361 •l»366yl«396|l 

.111,1.138. 

.161,1,182,1 .509,1 

.519, 

VBATTI 

. 1.2 

) a 1 

.126.1.133,1.118,1 

•168|]*2l8t 

.262.1.273,1.295,1 

.301, 

VBATTI 

. 2.2 

) ■ 1 

•lSlil»l5®»l*l73tJ 

.193,1 .210, 

•287»lf290*|*32Ofl 

.329, 

VBATTI 

. 3.2 

1 a 1 

.167,1.171,1.189,1 

.209,1.257. 

t30S»|*316|]«33B|l 

.317, 

VBaTT 1 

. 1.2 

) ■ 1 

.171,1.181.1.196,1 

*216* 1 *266* 

• 3lSf 1*3261 1 *396*  1 

.357, 

VBATTI 

. 5.7 

) a 1 

. 193,1.200. 1.215,1 

.235,1.287, 

• 339f \ f3S0| t #372* 1 

.381  . 

VBATTI 

• ^ • 2 

} a 1 

.205,1.212,1.227,1 

.217,1.298, 

.350,] f361 , 1 .383, 1 

.392, 

VBATTI 

. 7,2 

1 ■ 1 

• 2l6i  1 *223*  k •236*  | 

.258,1.308, 

B-lU 


501*0-27 


.359,1.370,1 

.392.1 

,9C  1 , 

VB*TT ( 

, 8,2)-l 

,22A,i.233, 1 

.298,1 

.26h,  1 

.31  7, 

• 3^^*  t >3761 1 

• 398.1 

.907  . 

vb»tt  t 

. 9.21.1 

.236,1.293.1 

.258,1 

.276,1 

.329  , 

.371,1.365,1 

.909,1 

.91:), 

VB«TT( 

.10,21.1 

,296,1,253,1 

.268,1 

.286,  1 

. 339  , 

•380i 1 #3931 1 

.913,1 

.922  , 

VB*TT 1 

1 1 1 , 2 1 . 1 

.26: , 1 .265, 1 

.280.1 

.3C0,  1 

. 399  , 

.388 , 1.909 , 1 

•918,1 

.927  , 

VB*TT ( 

,12,21.1 

•266fl*27S|l 

•290,1 

• 3 1 L • 1 

. 356  . 

.902.1.913,1 

.930,1 

.9:v, 

VB*TT ( 

, 13,2).l 

.272,1 .279,1 

.299,1 

.319,1 

. 369  , 

.913.1 .922,1 

•996, 1 

.955, 

VB»TT ( 

ilH,2).l 

• 260  f 1 1 287  1 \ 

•302,1 

.322,1 

.369  , 

,917,1 .926,1 

•950,1 

.95S  , 

VB*TT 1 

. 16.2 l-l 

.289, J .296, 1 

.311,1 

.331,1 

. 377  , 

.923,1.932,1 

• 956,1 

.965, 

VB*TT ( 

, 1 6 , 2 ) . 1 

•300flt^07fl 

.322,1 

.392,1 

.385, 

.927,1.936,1 

•960,1 

.969  , 

VBATT ( 

, 17,21.1 

.315,1.322,1 

.337,1 

.357,1 

. 395  , 

.939,1.993,1 

•967, 1 

.97t  , 

VBATT ( 

tlB,2).l 

.37A, 1 .333, 1 

•398,1 

.366  , 1 

.9n3, 

.939,1 ,998,1 

.972,1 

.981, 

VBATT ( 

.19.21-1 

.333,1,390,1 

• 355.1 

.375,1 

.911, 

.997,1.9'  V, 1 

•980,1 

.9PV  , 

VBATT ( 

.20,21.1 

.399,1.361,1 

•366,1 

• 3 ^ 6 1 1 

.971. 

.957,1,966.  ' 

•990,1 

.999  , 

VBATT ( 

.21.21-1 

.356,1.362,1 

.377,1 

.397,1 

.930, 

.963, 1.972, 1 

.996,1 

.505. 

VBATT ( 

. 1.31-1 

.115,1.129,1 

.191,1 

. |5C,  1 

.195, 

.291,1,296,1 

.263,1 

• 2 7 i t 

VBATT ( 

. 2.31-1 

.130.1.139,1 

.156,1 

.165.1 

.<16, 

.267,1.272.1 

•289,1 

.298, 

VBATT ( 

. 3 , 3 ) - 1 

.197,1.156.1 

.173,1 

.162.1 

. 233  , 

.265.1.290.1 

•307.1 

.316, 

VBATT ( 

. 9,31-1 

• 182,1 

. |9|  , 1 

.292, 

.293,1.298,1 

.315,1 

.322, 

VBATT  t 

. 5,31-1 

.179,1.183,1 

•200,1 

.209,1 

.269  , 

•320i^*325| 1 

•392.1 

. 399  , 

VBATT  t 

, A, 31-1 

.187,1,196,1 

.213,1 

.222 , 1 

.279, 

.335, 1.390,1 

•357.1 

.369, 

VBATT ( 

. 7,3)-l 

.201,1.210,1 

•227,1 

.236,1 

.292  , 

.397,1.352,1 

.369,1 

• 3 2 fc  , 

vbatti 

, 8.31-1 

.208,1.217. 1 

.239,1 

.293,1 

.299, 

.355,1.360,1 

•377,1 

. 389  , 

VBATT ( 

. 9.3)-l 

,217,1.226,1 

.293,1 

.252.1 

.310. 

.367,1.372,1 

.389,1 

.396, 

VBATT( 

.10.31-1 

.227,1.236,1 

.253,1 

.262.1 

.320. 

.377,1.382,1 

.39?, 1 

.906, 

VBATTI 

.1 1 ,31-1 

.236,i;29S,l 

.262,1 

.271,1 

.331  , 

• 3^0 1 1 • 395  • 1 

.912.1 

.919, 

VBATT( 

.12,31-1 

.299,1.258,1 

.275,1 

.289,1 

.399  , 

,909,1.909,1 

.926,1 

.933, 

vbatti 

,13,31-1 

.252,1.261,1 

•278,1 

.267,1 

• 3 *♦  7 5 

•908,1,913.1 

•930,1 

.937  , 

VBATTI 

,19.31.1 

,259.1. 26B,1 

•285.1 

.299 , 1 

.352, 

.910,1.915.1 

•932,1 

.939  , 

B-15 


50U0-2T 


VBATT  1 1 

.15,3 

) • 1 

.265.1.271,1 

.291,1 

. 300,1 .358 

.115.U120,1 

•137,1 

.111, 

VB*TT  ( 1 

. 1 A.3 

1 ■ \ 

,273,i;2e2,l 

• 299,1 

.308,1 .361 

.119,1.121,1 

• 111,1 

.118  , 

VB*TT ( 1 

.17,3 

) m 1 

.287,1,296,1 

.313,1 

.322,1.373 

.123.1.128,1 

•115,1 

• 152  , 

VBATT  1 1 

.18,3 

) ■ 1 

.295,1.301, 1 

.321,1 

.330.1.379 

.128.1.133. 1 

• 150.1 

.167, 

VBATT  1 I 

.19.3 

) • 1 

.305,1.311,1 

.331,1 

.310,1.389 

.137,1.112,1 

.159,1 

.166, 

VBATTI  1 

.20.3 

) ■ 1 

,315,1.321,1 

.311,1 

.350,1.399 

.117,  j. 152, 1 

•169 , 1 

.176, 

VBATT.t  1 

.21,3 

) • 1 

.328,i;337,l 

.351,1 

.363,1.108 

.152,1.167,1 

.171 , 1 

.181  . 

VBATT  ( 1 

. l.B 

) ■ 1 

.106,1,113,1 

•128,1 

.111,1.186 

.228.1.237,1 

.261,1 

.262, 

VBATT  ( 1 

. 2,1 

) • 1 

.122.1.129,1 

.111.1 

.160,1 .206 

.25i ,1.260, 1 

•277,1 

.285, 

VBATT  1 1 

. 3,1 

) • 1 

.110,1,117,1 

.162,1 

.176,1.221 

.269,1,278,1 

.295,1 

.303, 

VBATT ( 1 

. 1.1 

) * 1 

. 1 50 . U 1 57 , 1 

.172,1 

• IBB, 1 .216 

.283,1,292,1 

•309,1 

.317, 

VBATT ( > 

. 5,1 

) ■ 1 

.169,1,176,1 

.191,1 

.207 , 1.267 

.306.1 .315,1 

•332,1 

.310, 

VBATT  1 1 

. 6,1 

) ■ 1 

.180.1.187,1 

•202,1 

.216,1.271 

.323.1.332,1 

• 319 , 1 

.357  , 

VBATT ( 1 

. 7,1 

) ■ 1 

.192.1.199,1 

.211,1 

.230, 1 .263 

.335,1.311, 1 

•361,1 

. 369  , 

VBATT  ( 1 

. 8,1 

) ■ 1 

. 202 1 1 .209 , 1 

.221,1 

.210, 1 ,292 

.313,] .362, 1 

• 369 , 1 

.377  , 

VBATT ( 1 

. ’.9 

) ■ 1 

.712.1.219,1 

• 231,1 

•250. 1.301 

.351il,360,l 

.377,1 

.385  , 

VBATT  n 

.10,1 

) * 1 

.227,1.231,1 

• 219, 1 

.265,1.315 

.365,1.371,1 

.391,1 

.399, 

VBAI T ( 1 

.11,1 

) ■ 1 

.239,1,216,1 

.261,1 

.277,1,327 

.377 .1,366,1 

.103,1 

.111, 

VBATT ( 1 

.12,1 

) ■ 1 

.262,1.259,1 

.271,1 

.290, 1.310 

.389,1.398, 1 

.115,1 

.123, 

VBATT  ( 1 

.13,1 

) • 1 

.251,1 .261,1 

.276,1 

.292,1.312 

.392,]. 101 , 1 

.118,1 

.126, 

VBATT  ( 1 

.11,1 

) * 1 

.260,], 267 , 1 

• 282, 1 

.298,1.317 

.396,1 .105 , 1 

•122,1 

.130, 

VBATT ( J 

.15,1 

) • 1 

.268. 1 ,275, 1 

.290,1 

.306,1 .352 

.100.1,109,1 

• 126,1 

.131, 

VBATT  1 1 

.16,1 

) » 1 

•276, 1 .263, 1 

•298,1 

.311.1.359 

.103,1,112,1 

•*»29,l 

.137  , 

VBATTI  1 

.17,1 

) ■ 1 

.286. 1 .293, 1 

.308,1 

.321,1.365 

.106,1,115,1 

.132.1 

.110, 

VBATT  1 1 

. i8;i 

1 ■ 1 

.295,1  >02,1 

.317,1 

.332,1.370 

.109,1,118,1 

.135,1 

.113, 

VBATT  1 1 

.19,1 

) ■ 1 

.302.1.309,1 

.321.1 

.339,1.377 

.115,1.121,1 

.111,1 

.119, 

VBATTI  1 

.20.1 

) m 1 

.308,1.315,1 

• 330,1 

•315,1.383 

.121,1^130,1 

.117,1 

.155, 

VBATTI  1 

.21,1 

1 ■ 1 

.318,1.325,1 

•310,1 

.355,1.390 

.125,1,131,1 

.*•51,1 

.159, 

VBATTI  t 

. 1.5 

1 ■ 1 

.098,1.102.1 

.111,1 

.138,1.177 

50U0-27 


1.215.1,226,1.211,1 

.251, 

VB*TT ( 1 

. 2,5 

) -1 . 1 1 1 , 1 . 1 16 , 1 . 1 32. 1 

.151,1.195, 

1.236,1.219,1.265,1 

.272. 

VBATT ( 1 

. 3.5 

1.1. 131, 1.136, 1.152,1 

.171,1.211, 

1.251,1.267,1.263,1 

.290, 

VOATT ( 1 

. H.5 

)■!. 117, 1.151,1.165,1 

.187,1 .227. 

1 .267, 1 .260, 1.296,1 

.303, 

VBATT ( 1 

. 5.5 

1 B 1 . 1 61 , 1 . 1 66 , 1 . 162 , 1 

.201.1.253, 

1 .292.1.305.1.321  , 1 

.328, 

VBATT  ( 1 

• ^ ^ 

1 ■ 1 . 1 7h , 1 ; 1 76 , 1 . 192 , 1 

.211,1.262, 

1.310,1 .323, 1.339,1 

.316, 

VBATT ( 1 

. 7.5 

IbI . 1 61 , 1 . lee , 1 .202 , 1 

.221,1.272, 

I .320, 1 ,333, 1.319,1 

.356, 

VBATT ( 1 

• ® ^ 

)«1. 193, 1.197, 1.211,1 

.233, 1 .280, 

1 .327  , 1 .310,  1.356 , 1 

.363, 

VGATT ( 1 

. 9.5 

1 B I .206 , 1.212,1.226,1 

.218,1 .302, 

1.336,1.319  ,1 .365 , 1 

.372, 

VBATT ( 1 

.10.5 

|Bi .227, 1 .231 .1.215,1 

.267,1.307, 

1.317,1.360,1.376,1 

.383, 

VBATT ( J 

f 1 1 .5 

1.1.212,1. 216, 1.260.1 

.282,1.322, 

1.361,1.377,1.393,1 

.100, 

VBATT ( 1 

.12,5 

) B 1 . 251 , t .258 , 1.272,1 

.291, 1 .336, 

1.378,1^391, 1.107,1 

.111, 

VBATT ( 1 

.13,5 

)b1 .257 ,1,261  , 1 .275, 1 

.297,1.339, 

1.361,1 .391 ,1.110,1 

.117, 

VBATT ( 1 

.11,5 

1.1.261,1.266,1.262,1 

.301,1.311, 

1.385,1,397,1.111,1 

.121  , 

VBATT 1 I 

.15.5 

).l .270, 1.271, 1 .266, 1 

.310,1.319. 

1 .361 , 1 ;iOO, 1 .1 1 7 , 1 

.121 , 

VB ATT ( 1 

• 1 ^ B 5 

1 s 1 .278 , 1 .282 , 1 .296 , 1 

.318,1.351. 

1 . 390 , 1 .102 ,1.119,1 

.126, 

VBATT  1 1 

.17,5 

)-l. 261, 1.286, 1.302,1 

.321 ,1.357, 

I .391 , 1,103,1.120,1 

.127, 

VBATT ( 1 

.18.5 

)Bl .291, 1 ,298, 1.312, 1 

.331 . 1.361. 

1.393,1,105,1.122,1 

.129, 

VBATT  ( I 

.19.5 

1.1.299,1.303,1.317,1 

.339,1.367. 

1.395,1.107,1.121,1 

.131, 

VBATT(  1 

.20,5 

111. 306, 1.310, 1.321.1 

.316,1.370, 

1 .397  , i .109, 1 .126, 1 

.133, 

VBATT  1 1 

• 2 1 I 5 

1.1.313,1.317,1.331,1 

.353,1.375. 

1.398,1,110,1.127,1 

.131, 

VBATT(  1 

. 1.6 

111 .086, 1 ^068, 1.107,1 

.129,1,162, 

1.195,1.215.1.229.1 

.235, 

VBATT ( 1 

. 2,6 

)b1. 093,1, 095, i.ni.i 

.136,1.175, 

1.213,1,233,1.217,1 

.253, 

VBATT ( 1 

. 3,6 

1-1.116.1.118,1.137,1 

.159,1.195. 

1 .231  , 1 ;25l , 1.265,1 

.271, 

VBATT ( 1 

. 1,6 

)al. 131. 1.136, 1.155,1 

.177,1.212. 

1 .217 . 1 .267  1 1 .281 , 1 

• 267. 

VBATT ( 1 

. 5.6 

l-l . 117,] . 119, 1 . 168, 1 

.190,1.230, 

1.270,1.290,1.301,1 

• 310, 

VBATT( 1 

. 6.6 

)b1. 156, 1.156, 1.177,1 

•199,1.236, 

1.271.1.317.1.331,1 

.337, 

VBATT  1 J 

. 7.6 

)-l. 163, 1,165, 1.181,1 

•206,1.216, 

1.287.1.330,1.311,1 

• 350, 

VBATT ( 1 

» 0 f 6 

)al. 170.1. 172, 1.191,1 

.213,1.256. 

1.299,1.312,1.356,1 

• 362, 

B-17 


50U0-2T 


VB6TT  1 1 

, 9.6)-l 

.185 

;i87,i 

• 206,1 

.228,1.271, 

.319 

,357.1 

.371,1 

.377, 

VBATT  ( 1 

, 1 0,8 lal 

.207 

.200,1 

.228,1 

.250.1.285, 

.325 

.369,1 

• 376,1 

.389, 

VB*TT(  1 

, 1 1 ,8  I*! 

.232 

.239.1 

.253,1 

.271,1.303, 

.390 

,372.1 

•386,1 

.392, 

VBATTi  1 

, 12.81.1 

.208 

.250.1 

.269,1 

.269,1.316, 

.351 

• i 

.382,1 

• 396.1 

.002, 

vBATT  1 1 

. 1 3,8  1.1 

.252 

.259,1 

.273.1 

.291,1.318, 

.352 

,383.1 

•397,1 

.003, 

VBATTI  1 

, 19,6  1.1 

.258 

. 260 . 1 

.279,1 

.297,1.319, 

.353 

• 385,1 

•399,1 

.905, 

VBATT ( 1 

,15,61.1 

.289 

.266. 1 

• 285,1 

.303,1.326, 

.356 

• 366 , 1 

•000,1 

.906, 

VBATTI  1 

I 1 6 , 8 ) . 1 

.272 

.279,1 

.293,1 

.310,1 .328, 

.358 

,387,1 

.001,1 

.907, 

V»ATT  ( 1 

,17,81.1 

.270 

.281,1 

• 300.1 

.316,1 .336. 

.362 

,388;  1 

.002,1 

.906, 

VBATTI  1 

, 18,8 1.1 

.289 

. 286 , 1 

• 305,1 

.320, 1 .390, 

.369 

.389.1 

•003,1 

.909, 

VBATT  ( 1 

,10,81.1 

.288 

.290.1 

• 309,1 

.323,1.393, 

.368 

;302,l 

.906,1 

.912, 

VBATTI  1 

.20,81.1 

.20i 

;203, 1 

•312,1 

.325,1.396. 

.371 

7399.1 

•908,1 

.919, 

VBATTI  1 

,21 ,8 1.1 

.207 

.200,1 

.318,1 

.330, 1 .350, 

.379 

.305,1 

• 009,1 

.915, 

V V.o,  5 95*to,  P.  5 7 200, 0,5‘«0H0,0, 52260, 0,5P»00, 
O.HSSSo.O, *47  30P, 0^*16026, 0,M‘»7M3,0.<«3H6  1, 
0.‘I2179,0,‘(0897,0.3’7<4  3,0,3*‘*6I  ,0.37179, 

0. 35897, 0.3‘4<>  15,  o' 33333.0,32051 ,0.30769, 
0.2'>H87 ,0.2307  7,0.16667,0.10256,0.03896, 
0.0,-0.069  10,-0^  1 7820,-0» l’23J ,-0.2569  1 , 

X I I •-0.30900,-0. 29 36  98,-0. 10650  2,-0.09  289  8,0,0, 

0, 095521, O.O68o53lo,O05’e9, 0,099321, 0,1098967 

0.118172,0.129156.0.128286,0.131510,0.139271, 
0,  13610*',  0.1  37669,0. 1 3877  2,0.  1 30608,0. 100152, 
0.  1 90  569,0, 19 199  I, 0.  191 85 1,0.  1921 20, 0,102907, 
0.102503,0.192861.0,193150,0.193998,0,103726, 


5040-27  (Change  1) 


CENTER 


C center  - MAIN  OS/PA  driver  PROaRAM 

C controls  execution  of  design  synthesis 

C ANO/OR  PERFORHANCE  analysis  SUBPROGRAHS 

c 

INCLUDE  ALLCMN.LIST 
INtLUDf  COMON.l.IST 
INCLUDE  DSCMN.LIST 
I NCLUDf  PACMN .LIST 
INCLUDE  SUMCHNiLIST 
C integer  IBUFIlOODi 

C 

COmMON/STATS/  zalpma , zprcnt 

NAmELIST/INPT/  AA,ACELL,ACSTD,ADl,AD2,BETAB,ei,BRCEST,BRCMH*, 

, BHOEST.BRDSTD.BtEMP.CB.CBAVAL.CBMAX.CDEGA.CDEGB.CELPACiCLR, 

. CLSIT.CLST.CLStT.CN.CSH.C'JRZ.DcOAT.OCDCHT.OcOCNt.OCDCPT.OCDCT, 

. OCDET .OCPNNT ,DCDHPt,OCDNT.UCONZT,DCOPNT,DCDPPT,OCOPST,OOOT, 

. DTAHBI.DTTAI ,UTTES&,DTTPCO,CTTPSG,OURAM,OKOAT,OPOCHT,OKOCTi 
. DWDNZT.OWCPST.Fa.FpcELL.hOER.MoZmX.ICHRt.IFtYPE, JNOFUSi ipso, 

. ISH.NaDi ,NaD2.NBATp,NBATT»NBtemP,NC0EG,NCURZ,NDCD*iN0C0C, 

. NDCDCN.nocoCP.NDCDn.NDCOHN.NocdNP.NOCDPN.NocDPP.NOODiNOTAHB, 

. NOTTA.NOWDa .NOWDCH.NPWDE .^OWDNZ .NOWDPS.NESP.NP.NPLT.NPHEOi 
. NHOE.NRSCEL,NS,NSAP,NSOC,NSPGr,NSUNMW,NtBFrz,NTCZT,NTCZV, 

. NVCHIS.NVCHIO.NVCMt.NVCHV.NVOEG.NVLBT.NVLBv.NVRISA.NVRIO, 

, NXlHT.NXlHy .nZCHRA InZCHHS.NZDT ,NZDV ,NZRa ,NZr5,NIS,NZSH,NZTC, 

. FHIAAL.PHIaIC.FO.Pi ,P2,P3.<JB,aBATT,0BRES,Q0FF,Q0N.REFLH,RL, 

. RLL.PCE.RSa , FSCelL . SADEGC.SADE&V.SARES.SOC .sPECOR.SPGRI  , 

. sunlit, SUNml.TBATT.TPFRZI.TBDSTD.TCSTD.TCZIV.TCZT, tczv .tcmtab, 

. THeLAC .THElOD, TLLl .TLO.TP.TSHReF.TTAVE.TZBr.TZN.VBATT.VBUS, 

. VBUSMN.vchIST,'-  HIt.VCHIOT.VCHTT, VCHVT.VOEGA.VLBT.VLBTT.VLBVT, 

, VLR.VhaXIV.VPIi.  .V.vRISAT.VRIot.VSAINC.VSHTOR.VV.VZBR.XCSTO, 

. XIBATT.XICHHX.XIHIt.XIHTTiXIHVT.XII.XN.XPLt.ZALPHA.ZCHRaT, 

. ZCHR5T,ZDlPP,ZuiMPT,ZDlMPV,ZppcNT,ZRAT,ZRST,ZSHTAB,ZTC0tF/ 

c 

REAO(NRD,10,ERR“50,EnO»80)  IPRG.ITAPE, debug, XLN.YlN 
10  FORMAT!  I 

READ ( NRO , I NPT , ERR"  lOo , ENO-l So  ) BREAD  NAMELIST  INPUT  DATA 
lF(IPRG.NE,n  call  OsDRVR  BEXECUTE  DESIGN  SYNTHESIS 

IF( IPRG.eQ.U I GO  TO  20  BOESIGN  SYNTHESIS  ONLT? 

iF(Nplt.eq.o  .and,  xln.le.o«o)  go  to  12  bno.  Plotting  reBuired? 
call  plots  byes.  Initialize  plot  package 

C call  plots  I I BUF,  1000^6  ) byes,  initialize  plot  PACKAGE 

C call  PLCT( 1 .0,0.0,2001 

C call  plot ( o.b ,0.5  ,-3  ) 

12  IF( 1taPE>NE,0)  call  NTRANI HERGe. 10,22 ) BreWIND  input  data  file 
IF(  ;prG,EQ.2  I READInrD, INPT,EKRb2O0,ENO"25O)  bread  neb  input 
call  PADRVR  bexecute  perforhance  analysis 

HR  I TEINWRT  , 15  ) 

• 15  format(/////'o  are  Summary  output  tables  desired?') 

REaD(NR0,18)  IPRG 
lb  F0RMAT(A6) 

IF ( IPRG.EQ. ' NO' I GO  TO  20 

call  sumary  bproouce  pa  summart  tables/plots 

IFiNPLT.le.I  .and.  XLN.LE.0t0l  GO  TO  20 

call  PLCT(XLN«10. 0,0.0. 999)  BTEPHINATE  PLOT  PACKAGE 

20  STOP  OS/PA  bterminatc  os/pa  execution 

c 


r 
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so  WRITC(NMRT,60I 

«0  F0RHAT('0***ERR0R  in  ATTCNT  to  read  PROfiRAM  PaRANCTCRS* ) 

STOP 

•0  mRITCINNRTiTO) 

90  F0RHAT( '0*»»PR0GRAH  parameters  WEtE  NOT  ENTERED* I 
STOP 

lOO  NRlTEiNkRTil I0» 

UO  FORMAT! *0»»»ER«OR  IN  NAMELIST  INPUT*///) 

WRI TE I NWRT , INPT  ) 

STOP 

ISO  PRlTElNwRTt 160) 

160  FORMAT! 'O^.^ENO-OF-FiLE  ENCOUNTERED  AT  NAMELIST  INPUT*) 

STOP 

200  wRITE!NMRt,21U) 

210  FORMAT! 'O^^-ERROR  IN  PERFORMANCE  ANALYSIS  NAMELIST  INPUT*///) 
write ! NWRT, iNPT ) 

STOP 

250  WRITE|!;wRT,260i 

260  format  I *0»«»EN0-0F-FiLE  ENCOUNTERED  AT  PERFORMANCE  ANALYSIS  *, 
• ' namelist  INPUT* ) 

STOP 
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DSDRVR 


i 

i 


i 


c 

c 


c 


c 


SUBKOUTINC  OSORVR 

main  driver  procram  roR  OeSICN  synthesis 

INCLUDE  ALLCMN.LIST 
INCLUDE  COMONrLIST 
INCLUDE  DSCMN.LIST 

DIMENSION  CTiri.  EBx1S2,3|*  EBDXOI,  ETA(11|,  NMR(52||  S*tT(in 
DIMENSION  QQSOLTIS2I.  QSOLUU.  OSOLCIll).  OSOLHilH,  CS0LMX|S2I 
DIMENSION  TC(7).  TCZ I ( NTCZ I V | , TlMECIll)^  TJTIS2I.  TKT(s2) 
DIMENSION  TLTISZI.  TOrriH),  TONIIlt.  VCOSTOllll.  VCHiVTdOl 
REAL  IFOFF.  IFON,  IZRFZsi  MAXI,  MaXV,  MSABOP 
define  TCNVRT(T)  ■ slo  • (T  « <«S9iA7l  / 9.0  • 273. IS 


NAMELIST/OSOUTI/  TTABMX ,TTABHN,0TTAMX .OTTAHN ,0TABMX .OTABnN, 

. IFOFF, IFON, PFOFF,pFON, XI , XV/ 

NAMELIST/0S0UT2/  LNEEX , CT , tC , NWEE* , SST , SRt , D T I MeH , S ALT , CSOLC , 
. 0S0L,TIHEC,Q0T,NNR,TJT,TKT,TLT,Q0S0LT,6S0LMX,QQs0L, 

. T0FF,T0N*,TJTT,TKTT,TLTT,  JOFFMX,  JONMX/ 

NAMELIST/0S0UT3/  EPCO J , EPCOX , EPCOL , TTESMX i VCOMN , VCCMN , X I B , 

. XVB,ETABVN,OOBB1 ,cTA,ETABa,RATBAT ,ETACHG,ETAD, 

. VEHlo,VCMi5AlTXTTiTLTT,PPSGAV,EPSG,ESA/ 

NAMELIST/OSOUTI/  TS AFMX , OOtN* , PNRMX 1 ,ETAEOM,MaXI  , M AX V , MSaPNR , 
. 00ST0T,ASCTNM,XNSCNM, VSCOC,NP,NS,NESP,NSCTOT, ASA, 

. ASCT0T,WSA,ASATP.cSA,XI2,V2/ 

NAMELIST/OSOUTS/  TSAFMN, VSaOC.MaXI ,MaXV,HSAPMR,MSABDP; 

. PESBD,XI2>2/ 

NAMELIST/OSOUTA/  BST ATE , EBtHMN , eBTHMX , OCSOL A , PPSCL , PPSGX ^ 

. PDJ.PBK ,PBlIeDX/ 

NAMELIST/0S0UT7/  EB0TH,EESGI , NMRT , NC YCLE , 000 , EESG2 , PPSCM* , 

. pochmx,ttesmn, vconx, vccmx,etabvx,ees63,eesc,xib;xvb/ 

NAMELIST/OSOUTS/  VBCHMX , VCH I 0 , VCH I S A , VCCHMN , XNCBMX , VCCHHX , 

. XNCBMN,XNCELIr,NCELl-,  VCOSTD,  VCOAVC.CBOSTO,  JBTOT, 

. JBMaX,XNBATT,NBATT,CBOT,CBO,EBOA.DOOA,YICHMX,ZIcHMX, 

. weATT,CBATTix|B,XVB/ 

NAMELIST/0S0UT9/  I CHrT , PCHC , NCHC , CCMC , NCMC , ISH,MSL,CSL  , 

. VSL0P,*ISL0PjTSAC’,FZRF25,XN2S,NZs,V20P,XlZ0P, 

. IZRF25, VZRF25, VZBR,T2BR,N2T,NSLP,TSHREF, VSMTOR, 

. WPM|),CPWR>BUS,CB,XN,XICHHX/ 


IF( VBUS.CE.VBUSMN)  Co  to  10 
VBUS  ■ VBUSMN  * 9.0 
WRITEINNRt.S)  vbus 
5 format ( '0***VBUS  ADJUSTED  TO  • 
10  iFt ITAPE.ED.OI  60  TO  20 
call  TMNM* 
ttabmx  ■ ttamb 

TTaBMN  ■ TSAF 

OATEM  ■ 3AS.292  • DURAM 

CO  TO  SO 

20  call  slupii .o,ottamx;fdot;otta 

OTTANN  ■ OTTAMX 
00  2S  I*2,3AS 
DATE  ■ FLOAT!  I | 

call  SLUP|DATE,DTTA,FD0T,DTTA| 
DTTAMX  ■ AMAXI (DTTAMx]DTTA) 

2S  OTTAMN  ■ AMINI (OTTAMN.DTTA) 


aVBUS  TOO  LOW? 

byes,  redefine  vbus 
boisplay  diagnostic  message 

FS.I,*  VOLTS'I 

eUSE  NOAA  tape  input? 
byes. 

BSET  maximum  ambient  temperature 
Bset  minimum  ambient  temperature 
bcompute  mission  duration 

11.11, DTTAlll,2l,N0TTA,II  8N0. 

BSET  daily  temperature 
B increment  extremes 

1 .11 , DTTA| I 1 ,2) ,NDTTA,i  I 

bmaximum  increment 
BMINIMUM  increment 


i 

i 

i 

I 


t 

\ 
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call  SLUP|0.0,OT*BMX,fOOT,OTAM*H 1,1) ,OTAMB| « I ,21 ,N0T*MB; i ) 
otabhn  > otabhx 

DO  35  I-t.2A  BBET  HOUBLT  TCMPCBATUBC 

TlMCM  - fLOATdt  * INCBCHCNT  CXTRCHCS 

CALL  SLUf (TlHCH,OT*HBlrOOT,OT*MBl 11,1) .OTAMBi c I ,2» .NOTAMB, 1 ) 

DTaBHX  ■ AMAXi (DTABHX.OTAMB)  BNAX|MUh  INCBEHCNT 

OTABMN  ■ AHINl (DTABHN.DTAHB)  bminimum  incrcnent 

TTABHX  • TTAVe  ♦ DTTAHX  * otabhx  BHAXIHUM  ambient  TE«^EBATUNt 

TTaBHN  • TTAVE  ♦ OTTAHN  ♦ DTABHN  BHINIHUH  AMBIENT  TeNPENATONE 

ttamb  • ttabmx  bset  ambient  tempenatune 

CALL  DSPCOCin  BCOMPOTE  PCOS  I-V  CHaPACTER I ST  I CS 

CALL  SLUPi VBusj IFOFF^rOOTlxV.XI.NPCOS.n  BSET  LAMP-flFF  CURRENT 
call  DSPCDC(2) 

call  SLUP( VBuS. IF0N,FD0T,XV*XI ,NPC06, n bset  LAMP-ON  current 
pFOFF  ■ VBUS  • Ir-iFF  BCOMPUTE  PCOB  LAMP-OFF  lOAO 

PFON  ■ VBUS  • IFON  BCOMPUTE  PC06  LAHP-FLASM I N«  LOAD 

IF(0EBU6,NE.0,0>  NR i TE < NWPT , OSOUT | » 


READ|NRD,7S.CRR>B000;eND>S30)  | 
FORMATl  ) 

lF|LNEEXtGT.52l  60  TO  530 
NWEEK  ■ LWEEK 
date  ■ 7.0  • NWEEK  - A.O 
CALL  TERNC 

OTIMeH  • (SSt  - SRT)  / 10^0 
DO  l<«0  I>|  . 1 I ; 10 
SALT( 1 ) ■ 0.0 
QSOLCI I I • 0.0 

TiMEClII  ■ SRT  ♦ (i  i I)  • OTIMI 

TIMEM  • SRT  ♦ OTIMEH 

DO  170  I*2.i0 

1F|  ITAPE.EO.O)  60  TO  [sO 

call  ROTAPE 

OSOL(  I ) " QDt 

60  TO  lAO 

CALL  COSl(SALT(ln 
QSOLC(I)  ■ QOT 
TlMECI I I • TIMEH 
TIMEM  ■ TIMEH  ♦ OTIMeH 

NMRiNWEEK)  m 0 
TJTINWEEK)  ■ 0.0 
TKTINWEEKI  ■ 0.0 
TLTINWEEK)  • 0*0 
QQSOLTINHEEK I ■ 0.0 
QSOLMXINWEEKi  ■ 0.0 
00  5?P  L-I.7 

IF| ITAPE.NE.OI  60  TO  230 
J ■ I ♦ IFIXiCTILl I 
DO  220  i-i.n 
CCM  ■ 1.0 

|F(TClLI.E6.0^0i  60  TO  220 
R • I 

IPISALTI I I}6T.P1/It0]  K • 2 
CCM  • POtWiKi  ♦ PIIV.K)  •.TC(L) 

. P3IU.KI  • TCIL|*«3*6 


LWEEK, (CTIII.TCIllfl>1.7| 

beno  of  test  TEART 
BNO.  STORE  week  NUMBER 
BCOMPUTE  date  of  TEST 
86ET  terminator  CHARACTERISTICS 
BCOMPUTE  daily  TIME  INCREMENT 
BCOMPUTE  INITIAL/FINAL 
B SOLAR  altitude 

B clear-dat  solar  insolation 

1EH  B TIME  OF  DAT 


BusE  noaa  Tape  input? 

BYES^ 

BSET  noaa  solar  INSOLATION 
BNO*  compute  CLEAR-OaT  insolation 


bincrement  Daily  time 
binitialize  weekly  summary  Data 


buse  noaa  tape  input? 
bno.  set  cloud  type  indicator 

binitialize  cloud  cover  modifier 

BSET  SOLAR  ALTITUDE  INDICATOR 

♦ P2U(K)  • TCIL)**2^0  * 

BCOMPUTE  CLOUD  COVER  MODIFIER 
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QSOL(I)  ■ CCn  • QSOLC(I)  SCOMPUTE  INCIDENT  NADIAtION 

call  INTEGI I . I I .OTIHeH.QSOLiQOSOL)  eCOHPUTE  TOTAL  RADIATION 


QSOLMILI  • QSOLI I ) 

DO  2HS  I>2.11 

OSOLHIL)  > AHAXl lOSOLHIL) 

JTorF  ■ I 

JTON  ■ 1 

DO  360  l«2,ll 

iFiesOLI  I I.LT.QOFP)  go  TO 

IF( INOFLS.NE, I I 60  TQ  310 

call  SLUP(QOFF,TOrF( JTOFF 

INOFLS  • 0 

JTOFF  ■ JTOFF  ♦ I 

GO  TO  360 

iFiqsoli 1 1 .gt.oon)  Go  to 
IF) INDFLS.NE«0 I GO  To  360 
call  SLUP(00N,T0N(JT0N) ,f 
INOFLS  ■ I 
jTON  ■ JTON  ♦ I 
CONTINUE 


BCONPUTE  HAXINUM  SOLAR  RADIATION 
'.QSOLi  I I I 

eiNITlALiZE  FLASHED  LOAD  COUNTERS 


bselect  flasher  condition 
1 ,FOOT,OSOL(  I-n,TlMEC«I-ll,2.ll 

breset  Flasher  condition  flag 

SINCREHENT  LOAD  TURN. OFF  COUNTER 


BSELECT  FLASHER  CONDITION 
D0T,6S0L( I'll (TIHECi I.| ) ,2.  I I 

breset  flasher  ccnoiticn  flag 
BINCREHENT  load  turn. on  counter 


JOFFHX  ■ JTOFF  » I 
JONNX  - JTON  . 1 
DNHR  • JOFFMX  ♦ JONMx 
TJTT  • SRt  ♦ 2'«.0  - SST 
tFTT  ■ TOFFI 1 1 . SRT 
TLTT  ■ 0.0 
JTOFF  • 1 
jTON  ■ I 

IF|  JTOFF.NE.  JTON)  GO  TO  •«60 

DTL  ■ TON(JTON|  - TOFF(JTOFF) 

TLTT  • TLTT  ♦ DTL 

JToFF  ■ JTOFF  ♦ I 

IF( JTOFF, GT.JoFF hX  ) 60  TO  H«0 

60  TO  R20 

DTK  ■ TOFF(JTOFF)  _ tON(JTON| 
TKTT  • TFTT  ♦ DTK 
JTON  ■ JTON  ♦ 1 
GO  TO  N20 


BSET  flasher  TURN-OFF  COUNT 
BSET  flasher  turn. on  COUNT 
BCOHPUTE  daily  NODE  REVERSALS 
bouration  of  daily  occultation 

BDUR6TI0N  OF  DAILY  SHARE  NODE 

Bouration  of  daily  charging 
Breset  flasher  load  counters 


BSET  charging  period  INcREHCNT 

BINCREHENT  CHARGING  DURATION 
BINCREHENT  LOAD  TURN. OFF  COUNTER 

bmaxihuh  nuhcer  of  turn. offs? 

BNO. 

bset  share  period  INCREHENT 
BINCREHENT  SHARE  HOOE  DURATION 
BINCREHENT  LOAD  TURN. ON  COUNTER 


C 

C*«** 

c 

S30 


TJTINhEEX)  • TJTiNNEEXI  ♦ TJTT  BINCREHENT  MEEKLY  SUHHArT 

tktinmeek)  • txtinmeex)  ♦ tKtt  6 operational  ferioos 

TLTINMEEA)  ■ TLTiNmEEKI  ♦ TLTT 

NHriNMEEK)  • NHR(NMEeX|  ♦ DNHr  BINCREHENT  MfEXLY  HOOE  REVERSALS 
OBSOLTINWeeK)  • OOSOLTINMee*'!  ♦ QOSOL  BINCREHENT  REeKLY  SUH. 

0S0LHX|NHeeK|  ■ AHaX J(0S0LHX(NMeeX I .GS0LH(L » 1 B hart  INSOLATIONS 

continue 

|F IOEBUG.nE.0.0 ) WRITE! NWRT,DS0UT2 | 

GO  TO  70  BGE1  NEXT  INPUT 

•PERFORH  initial  POWER  SUBSYSTEM  COMPUTATIONS 


ERCOJ  ■ 0.0 
EFCOK  • 0.0 
EFCOL  ■ 0.0 
DO  550  I«I,NwEEK 


BINITIALIZE  yearly  load  energy 


BCOHPUTE  YEARLY 
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EPCDJ  • EPCDJ  ♦ PFON  • TJT(I)  B OCCULTATlON  LOAD  ENER6Y 

EPCDK  ■ EPCOK  ♦ PFON  • TKT(I)  B SH*RE  MODE  LOAD  ENERGY 

SSO  E^COL  ■ EPCOl  * PFQFf  • TLTlI)  B CHARGING  MODE  LOAD  ENERGY 

560  TTeSMX  • TTABm*  ♦ 0TYES6  BCOMPUTE  MAXIMUM  ES6  TEMPERATURE 

570  call  OSESGCI QBRES, TTeSMX I BCOMPUTE  BATTERY  l-V  ARRAYS 

580  call  SLUP(-ABStBRDESTI ,VCDMN,FDOTi*IB,XVB’NIVB,I ) 

590  call  SLUP(BRCCST,VCCmN,FD0YiXI8,XVB.NIVB,1 ) 

600  ETABVN  ■ VCDMN  / VCCMN  BCOMPUTE  MINIMUM  EEFICIeNCY 

610  OQBBl  ■ (1,0  - QBRES)  / 10.0  8SET  ST ATE-OF-CHaRGe  INCREHENT 

620  QBBI  - OBreS  BINITIALIZE  STATE-OF. CHARGE 

DO  6<t0  I " I . I 1 

630  CALL  DSBeFC(BRCEST,ETA( I ) ;0®Bi ,ttESMX|  BCOMPUTF  EF^^ICIENCY 

6<40  GBRi  ■ GBBI  ♦ OQBBl  BINCREHENT  ST ATE'OF-CMArGE 

660  call  integ( 1 , 1 1 ,oqbB| ,eta,etabqi  bcompute  average  efficiency 

ETABQ  ■ ETABq  / (1,0  - obreSj 

670  RAtBAT  ■ i.O  / (ETABq  • ETABVNi  BCOMPUTE  CH*RGe / 0 1 SCH AR6E  RATIO 
C 

660  eTACHC  ■ 1,0  BINITIALIZE  CHARGER  EEFiCIENcY 

ETAO  > 1.0  B AND  discharge  LINE  EFFICIENCY 

IF( ICHRT.EO.OI  60  TO  760  BCHARGER  PRESENT?  Noi., 

690  ETAD  • VBUS  / (1.0  ♦ VBUSI  BsET  DISCHARGE  LINE  EFFICIENCY 

700  etachg  • 0.0  breoefine  charger  efficiency 

CALL  SLUP(TTeSHX,VCHio,FOOT,VCHIoT( I ,1  I .VCHIOTI I ,2  1 (NVCHIO.I ) 

IF ( VBU5.LE. VChIO I 60  TO  760 

7(0  call  SLUP( TTESMX , VCHISA.FOOT, VCHIST( I , 1 I , V CH I S T ( I , 2 » , N VCH I S , I I 
720  etachg  ■ 1,0  - VCHIO  / VBUS  bredefine  charger  efficiency 

IF ( VBUS.LE. VCHISA  ) Go  TO  760 

730  etachg  • (VCHISA  - VcHIoi  / VBUS  BREDEFINE  CHARGER  EFFICIENCY 

C 

760  TXTT  ■ 0.0 
TLTT  • 0.0 

DO  770  I«1,NNEEF  BCOMPUTE  DURATION  OF  YEARLY 

TXTT  ■ TKTT  ♦ TXT(I)  B SMARE  MOOE  LOADS 

770  TLTT  ■ TLTT  ♦ TLTlII  B CHARGE  MODE  LOADS 

700  PPSGaV  ■ (RATBAT  • (ePCDJ  ♦ EPCOK  I ♦ ETAO  • ETACHG  • EPCDL I / 

. (RATBAT  • TKTT  ♦ eTAD  • ETACHG  • TLTTI 

790  eFSG  - PPSGAV  • (TFTT  ♦ TLTT)  BcOMPUTE  PSG  ENERGY  REQUIREMENT 
Boo  ESA  > EPSG  / (VBUS  / (1.0  « XBUSlI  BS/t  ENERGY  REOUIReHENT 
IF ( 0EBU6,nE .0.0  I HRItE I NNRT ,DS0UT3 ) 

C 

C»»»»*COMPUTr  SOLAR  ARRAY  HEIGHT  AND  COST 
C 

810  tsafmx  . tTABhX  ♦ ottpsg  bcompute  maximum  S/a  temperature 

820  QOTHX  ■ asOLHX ( I ) 

DO  825  I"2.NHEEK  BCOMPUTE  MAXIMUM  INSTANTANEOUS 

825  ODTMX  ■ AHAXi (QDTMX.OSOLMXl I n B SOL*R  RADIATION 
830  TSaF  - TSAFMX  BSET  SOLAR  ARRAY  PARAMETERS 

BOT  ■ ODTMX 

DATEM  ■ 365. 292  • OURAH 
NS  ■ SO 
NP  ■ 50 
NESP  • 1 

CALL  SACC(HAXI ,MAXV|  BCOMPUTE  S/A  l-V  CHARACTERISTICS 

C 

PMRMXl  ■ MSAPWR  / (NeSP  • NF  • NS  I 

890  ETAEOM  - PWRMXl  / (ACELL  • l.OC-9  • 00T|  BSOLAR  CELL  EFFICIENCY 
850  OQSTOT  • 0.0 


u u u 


c 
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00  ass  I-IiNMECK  scompute  total  TEARLV  radiation 

ass  qqstot  ■ oostot  ♦ aosoiTdi 

S«0  ASCTNH  ■ ESA  / lETAEQM  • QQSTOT  • (1.0  - SARESM  BS/C  *"E* 

$70  XNSCNN  • ASCtNN  / lACELL  • UOE-*t)  BESTIHATE  TOTAL  SOLAR  CEttS 

aao  VSCOC  ■ V2lHF|NAL>i)  bcohpute  open  circuit  voltage 

avo  NS  ■ 1 « 1 1 « veusi  / (imaxv  * vscoci  / 12  • nsii 

*00  nESP  ■ 1 * XNSCNH  / INS  • nPREQI 

*10  NSCTOT  • NESP  • NS  • NPREQ  BTOTaL  Nq.  OP  SOLAR  CELLS  REBR'O 

*20  ASCTOT  ■ ACELL  • NSCrOT  • ItOE-H  BTOTAL  AREA  OP  SOLAR  CELLS 

*30  aSa  ■ ASCTOT  / ICELPaC  • V^2VE»2)  BTOTAL  SOLAR  APRAT  AREA 

**0  CALL  SLUPl ASA.NSA.PDoT.DWOaTI I , I I iDWOATI I ,21 .NOWDA,  n 

MSA  ■ ASA  • MSA  BCOHPUTE  SOLAR  ARRAY  HEIGHT 

*S0  ASATP  ■ NSAP  • ASA 

CALL  SLUPi aSatP«CSA,POOT,OCOAT( 1 ,1 ) ,DcOAT| 1 .2  1 .NDCDA,i ) 

cSA  - ASA  • csA  Bcohpute  solar  array  cost 

IPIOEBUG.NE.O.O)  WR|TE(NWRT,DSOUT<i| 

940  TSaFHN  ■ TTABhN  * OTTPSG  BCOHPUTE  HIN|HUH  S/A  TEhPeRATURE 

*70  TSAP  • tsaphn  bset  solar  array  PARAHETERS 

GOT  ■ OOTHX 
DATEH  ■ 0.0 
NP  ■ NPREO 

CALL  SAECIHAXI  .HAXVI  BCOHPUTE  S/A  l-V  CHARACTERISTICS 

vao  VSaOC  ■ V2lHPtNAL>|)  BCOHPUTE  OPEN  CIRCUIT  VOLTAGE 

*90  HSaBOP  • HSAPMR  / I UO  * VBUS  I BBLOCPING  DIqOE  POWER  LOSS 
1000  PESBD  ■ HSABDP  / NeSP  Bs/A  BLOCKING  OlOOE  RATING 

|P( DEBUG. NE.O.Oi  WR I TE ( NWRT , OSOUTs ) 

•••••coHPUTE  Battery  weight  and  cost 

1010  BSTATE  ■ 0.0 
EBTHNN  • 0.0 
EBTHHX  ■ 0.0 
00  1120  l•l,NHEEK 

1030  QQSOLA  ■ OQStOT  / NNcEK  bcohpute  average  insolation 

1090  PPSGL  ■ PPSGaV  • GGSoLTlIl  / QQSOLA  BCOHPUTE  PSG  POWER  OUTPUT 
PPSGX  • PPSGl  • QOPP  / GSOLPXII) 

1060  PBJ  ■ -PPON  / ETAD  bcohpute  LOAD  PROFILE  POWER  LEVELS 

PBK  ■ (PPSGR  . PFONI  / ETAD 
PBL  ■ ETACHG  • IPPSGl  - PFOPP I / RATBaT 
1040  IFIPBK.GT.O.OI  PBX  ■ 0*0 

1070  EBAO.I)  • PBJ  • TJT|I)  BCOHPUTE  ENERGY  PROFILE  LEVELS 

EBXI I ,21  • PBK  • TKTi  I I 
EBXI  1,3)  • PBL  • TLTi  I ) 

EBOXI I I - EBxi  I . I I / 7.0 
EBDXI2I  • EBxi I .21  / 7tO 
EBDXdl  ■ EBXI  I ,31  / 7.0 
00  1100  Kb1,7 

loao  00  1100  ja|,3  BCOHPUTE  BATTERY  ENERGY  STATE 

BSTATE  • BSTATE  • EB0X|K| 

EBTHNN  • AHINI iBSTATEtCBTHNN) 

1100  EBTNMX  ■ AMAXI IBSTATE.CBTHNA) 

IF(OCBUG.NE.O.O)  WRITEINWRT.DS0UT4I 
1120  CONTINUE 

1130  eSDTH  ■ EBTNMX  - EBTHNN  BOISCNARGE  ENERGV  REBHIrEHENT  *1 

1190  ECSGl  ■ EBDTM  / (1.0  - QBRCSl 
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1150  NHRT  ■ 0 

00  I1S5  I*i.NMCEK  BCOHPUTC  YEARLY  BAYTEKY  NODE 

1IS5  NMRT  ■ NMRT  * NHRI  I I B REVERSALS 

1140  NCYCLE  ■ 1 * 2A  • OUraH  • NHRT  / NWEEK  BtoYAL  CYCLE  REBUIREHEN 

1170  call  SLUPi ALOGINCYCLEI .000/00Y,00DT( I ,1 lIOODYl 1 ,2l,ND00;i I 
lleo  iFlOODtLTjOtO)  DOD  > 0*001 
tF|  DOD.GT.  I <0  I 000  ••  liO 

IIVO  EESG2  ■ EBOTH  / 000  BOISCMARGE  ENERGY  REQUIREMENT  *2 

1200  PPSGNX  ■ HSAPRR  - MS*BOP  BHA*|MUM  PSG  PoNER  OUTPUT 

1210  pbchmx  - ctachg  • ippsgmx  . pporri  bmaximun  charge  power 

1220  tTeSMN  • ttabmn  ♦ ottesg  BCOMPUTE  ESG  HININUM  TEMPEQATURE 

1230  call  OSESGCI I .O.TTESMNI  BCOMPUTE  BATTERY  I-V  ARRAYS 

call  SLUPi.ABSIBROEStI ,VCOMA,rOOY.XIB,XVB~NIVB,l  1 
12H0  call  SLUPi BRCEST , VcCMX ,F00T(X|B,XVB,NI VB, I I 

1250  ETABVX  • VCOPX  / VCChX  BWAXIHUM  BATYERY  efficiency 

1240  CC5G3  ■ pbchmx  • ETABVX  / BQCHMX  BDISCHARGE  ENERGY  aS 

1270  EESG  ■ AMaXhEESGi ,CCS<2)  BCOMPUTE  ACTUAL  BATTEBT  ENERGY 

EESG  • AM4X| (EESG.eESGSI  B DISCHARGE  CAPABILITY 

IF ( OEBUG.NEtO.O ) WR| TE I NwRY.OSOUTt  I 

I2«C  VBcHHX  ■ YSAOC  * UO  BINITlALiZE  MAX.  CHARGE  VOLYAGE 

IF( ICHRT.GY.O I SO  YO  1330  BSELECT  CHAR6E*  TYPE 

1320  |F|1SH.GT.0I  VBCHMX  ■ VBUS  * 0.75  • I VBCHMX  . VBUSI 
60  TO  13V0 

1330  ISh  ■ 0 BRESET  shunt  LIMITER  TTfE  FLAG 

1 3N0  CALL  SLUPl TTCSHN,VCH|o,FDOT,VCHIoT| 1 , i I .VCHIqTI 1,21 ,NVCH|O.I 1 
1 350  IF  I VBCMMX.LE. VCHIO I GO  TO  BBOO  BERROR  IN  *VBUS*  INPUT  VALUE 
call  SLUPl TTESMN, VCH I 5 a, foot, VCH I ST  I 1 , 1 I , VCH | ST  I 1 , 2 1 .nVCHIS, 1 I 
1 340  IF  I VBCHMX.GT, VCHISA I 60  TO  I IBO 
1370  vBcHMX  ■ VBCHMX  - VChIO 
GO  TO  I3V0 

I3B0  call  TB25ETIVCHVT,NVCHV,2;|,VCHTT,NVCHT,2il,VCH|T,NVCH|,|ERRl 
00  1385  lal.NVCMV 

I3S5  VCMiVTIll  • TB2GCT I VCHVT I I I • TTESMN I 

call  SLUPl VBCHMX, vest! foot, *ch IV t, VCHVT, mvchv; I I 

VBCHMX  • VEST 

13*0  call  OSESGCI I, 0,TTESMX|  BCOMPUTE  BATTERY  I'V  ARRAYS 

call  SLUP|0.0.VCCHMN,P00T.XIB,XVB,NI VB, I I 
IVOO  XNcBmX  ■ VBCHMX  / VCCHMN  BMAX|MUM  NO.  OF  CELLS  IN  SERIES 

IMIO  call  OStSGCtO.O.TTCSMN)  BCOMPUTE  BATTERY  I-V  ARRAYS 

call  SLUP|.ABS|BRDESTI ,VCCMMX,F00T,X|B,XVB,N| vB, I I 
M20  XNCBMN  ■ VBUfMN  / VCCHMX  BM|N|MUM  NO.  OF  CELLS  IN  SERIES 

1*30  XNCELL  ■ XNCBMN  * FRCELL  • I XNCBMX  - XNCBMNI 
1**0  NCELL  ■ IFIXiXNCELLl 

ONCELL  • XNCELL  • NCELL 
|F|0NCELL.GT.0.5I  NCELL  ■ NCELL  • I 
1*50  BBS  ■ O.O  BINITlALiZE  ST ATE*OF.CNaRBE 

00  t*BO  lal.ll 

1*70  call  PSESGCIBBS.TBDStOI  BCOMPUTE  BATTERY  I-V  ARRAYS 

call  SLUPi-ABSIBROSTOI .VCOSTOi I I ,FDOT.VIB;xVB,N|VB,  1 1 
l*B0  BBS  • BBS  * 0.1  BINCREMENT  ST ATE-OF-CHArGE 

1*90  call  1NTE6|I,|I.0.|.VC0ST0,VCDAVB|  BAVCRABl  CELL  DISCHARGE  VLTG 
IBOO  CBDStO  ■ EfBB  / INCELL  • VcO*VB|  BTOTAL  EJB  DISCHARGE  CAPACITY 
ISlO  DO  IBID  Iwl.SO  BFINO  CELL  SIZE  INDEX 
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jBTOT  ■ I SHAkinUM  NO.  or  TBOLC  CNTOICf 

ir(CBtV*Lt M.L[>0«0I  60  TP  1660 

00  1670  JBTOT  Sf I NO  0|SI*CD  CBPBCITT  I NOf I 

jBmBi  ■ t . I 

iriCBN*I.LC>CBtV*LI  I I I 60  TO  |6t0 
jBMkI  ■ JBTOT 

kNBATT  ■ CBOSTO  t C > t « *L I JB*'6I I BNUNBr*  07  tBTTIBlCS  IN  PBaBiLCk 
ir I INB6TT .LT, I .0  I 60  TO  |6|0 
jBB  ■ JBHtk 
60  TO  1*60 


) Jh  ■ jBHkt  . I *0(66  Thin  I B*TT|BT!  BrCONPUTI 

00  1*60  ■•I.jB  6 '•0.  or  B*TTf«IC6  IN  r*BBl.kCL 

) jBB  • Jlr*l  • I 

|NB*TT  ■ CB06T0  / CO*«*k)JB*l 

) ir  I i>.b*tt  .6r . 1 .0 ) 60  to  ibbO 
kb»tt  • j BorriotT  • i b*tt|bt 

CBOT  ■ CrOTTo  OflT  0|r*UkT  ST0B66I  Ctr*CIT* 

C6C  « CbOT 
60  TO  17*0 

' ir  I INftTT  ,Lt  . lO.OI  ko  TO  |7lc  NNOBf  Tn*N  |0  OiTTIBUB  IN 

< jbN*i  • jbn*i  * I B r*B*kktki  •rcoNowTf  no, 

jB  ■ JBTOT  ■ I B or  BaTTfBIfB 

00  me  ■■jBMti.ji 

> J*B  • I 

' INBkTT  ■ CB06TO  / (B«v*IIJBBi 
) ir I IsBtTt ,1 c . lO.r I 60  TO  |7lO 

nB*TT  • 10  WOf'BWLT  • ir  B*TTIB|(6 

CBOT  « CBD6TC  B6t T OtTiUkt  6T0B*6|  CBBtCITt 

CBO  ■ t*06TC  ! SBtTT 
60  TO  I 7*0 

) NB*TT  ■ If  I • I INBIT  T I BCONBOTI  NO,  BB  BtTffBUf 

0NB6TT  • INBiTT  • NftTT 
■ r I ONf * T T , bl  .0,6  I NBiTT  ■ kBlft  , I 
I <»0  • IB»*«L(JBB|  6(0NBkT|  (66  fT0a*6(  (tB*(|T« 

(•cr  • SBtTT  , (ic 

’ (60*  • <B0T  . soilt  . «(0t«6  kCOMBVTt  TOTtl  BtTT(B*  |N(a6t 

OOO*  • IkOTK  / TBOl  BfCT  «»I|NNN  B( BTN.bB >0 1 6(N*aB| 

TICNX  • (BUT  • BtCHHI  BM*i|«u«  (66  (M6B6IN6  (waafNT 

|ICN»I  • ,|(H>il  / SBtTT  B«6I|Bwn  BtTTCar  (MtBBisB  (waB(Nt 

, C»Lk  610B (CBC .NBtTT ,rOf T ,onO|T|  I , I I .OnOITi  I ,11 .NOsBt , I I 
■BtTT  « IBC*  • NBfTT  BTOTBk  BtTTrat  ■(IBnt 

) c»k».  TBjji T tetocT .sctoc .1, I .ocont ,NO(ON,i. I .oceiT ,NO(Bi , iiaai 

CN»»T  • (BO*  * TB»6lTtCBe,NB»tB|  B(0nBUT|  TOttk  BtTTia?  (BIT 

I' I oiBok.sr .o.c I I T( I n«bt .oboutb i 

• •(OHBUTf  ktTT(BT  (MtBbfB  ■(IBMT  tSO  (.067 


BorriukT  • I b*tt(bt 

Bf(T  OirtUkT  ST0at6(  (tatCITT 


BnOBf  TNtN  10  atTTIBIIS  IN 

a Btatkkrki  arcoNBWTf  no, 

B or  BtTT(a|(6 


WOf'tWLT  • ir  B*T7(a|(6 
B6(T  DtrtWkt  fT0a*6(  (6Bt(tTt 


BCOMBWII  NO,  er  Btfrcant 


NCOMBVTf  TOTtl  B*tt(#»  |N(B6T 
•6CT  "tllNNN  B(BTN.or.Bl6(N*B« 
BMtllNJN  (66  (MtBBlNB  (waa(NT 
B«tl|BWN  B*TT(Br  (MtBBisB  (WBI 


b(h6  • e.Q 

■CHk  • c.o 
CCH6  • 0.0 

ir  I IChBT.(O.OI  60  TO  IBIO 
BlM6  • BBCN**!  / NBtTr 


B|N|Tltl|l(  (MBa6(a  10*0 
BiNiTitiiK  (Mtaoia  niiomt 
aiNlTltklll  (MtBBta  (06T 
BC0N6T6NT  «0lTB6(  CMBa6(BT 
bt(6.  C0NauT(  CNoaoca  loto 


C til  Sier  I BCs6,kCH6,rOOT  .OnO(MT  I I • I I .OBOCMT  I I ,1 1 •NOBOCi  I I 
■ Cm),  ■ MtTT  * BCHO  . NCNO  acONBUT(  CH«06(a  MtlONT 
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I too  t»tl.  T I CCDCPT  .*iOCOC^  , 2,  I , OC  CC  N T , NCC  0C*<  , 2 , I , DCOCHT  , hOC  OCH  , 

. IIPP* 

NCMb  ■ hfetTP 

CtH6  ■ f.BtTI  . • TI26C' I ^Cm6.nChG  I 8C0PPUTC  CHtRbEK  COST 


C*»**aCONPUTt  SHUNT  Ll"ITl«  «ll6><t  *N0  COST 
C 

1*10  «Sl  • O.L  B|N|TI«LI2I  SHUNT  LIHlTf*  MCtSHT 

CSl  • 0.0  8INITULI2C  SHUNT  LINlTf*  COST 

|T||Sm.IU.OI  GP  Tr  2|S0  8SHUNT  LI"lT|»  PNtStNT? 

• •20  »'10P  • T»CH»I  • '.CllL  / iNCiHI  HTIS,  SIT  0P|«»T|NG  POImT  |-V 

C»LG  StUPl»SlOP.tlSGO*.POOT.T2,«12."T |N»t,i » 

TS«C  • Tf s»*T I T S»r HN I 

• •JO  l»(ISH.GT.2l  SC  Tt  20*0  8(.H»N6f  TO  CrNTIG**Ot  T|"P|«»TU8| 

••aO  |PSG  • I 8TCS.  SIT  PObt*  SOUNCC  GNOUP  TTPf 

l»SO  Hafts  • -Cl»  • H0TN«  8SCT  PrPrPINCt  POnCP  tlTtl 

• •bO  »**ls  • P»SG"»  / (NfSP  • PH’TSl  •tPHbUTl  NO,  OT  IlNt»S  |N  STPlNG 

nI S * IT  I 1 1 INIS  I 


0N2S  • •'  2S  • ‘.TS 

|T I OnIS.GT .O.S I NIS  • N/s 

itar  »C2  • ’Stf 

I PSO  tToP  • *StPH  / ‘Is 

Tiiop  • Tistc*  / *'rsH 

l«0f>  I*  ) I SH.  GT  , I I sr  TO  2niO 


“StI  fTNfP  0P|P*T|N6  TibPj»*TUPC 
GcO-PUtt  ItN|P  OlOOl 
8 0PC**T|NG  point 
8CP0|NtPT  IfNfP  OIOOC'* 

NTtS.  S[ T •■raiOOPN  yOLT«G( 


1*20  tliio  • TTPP  NTtS.  St T •■raiOONN  yOLT«G( 

Tl  • 1*12  • 1C. 01  / lOO.U 

t»l.l  T*2S|T(2ei*'P*,s;n*,2.l.»Cl"P’,N20»,2.I.^OI"P,NlO|PP|lfP«l 
l«)0  OP  luoo  l>I.JS  HCOHPUTI  ••r«(DOHN  VOLTtGt 

• ♦no  <»tt  SlUP I Ti* ir . »f P.T OOT , 2 tCOCT I I , I I , /TtOf T I 1 , 2 I ,NTCI . I I 
1^40  »•••  • Tloa  - Tl/HP  • TP2tl  * • * f«  ir , Tto I 

••TO  tI»  • ¥/••  • ||."  . TtO  • Til 
••0  P«l«  • aPSKTl*  • t/riOI  / ’(PlOi 

• ••O  I* »•» I*  .Cl  ,«■ . I t GP  *r  ICSg  •»tl|PT»NLT  NPtTPDOaN  toLTAGc^ 

2000  T2«>e  • *2P  Gwo,  ■tOTTIar  PrTfPtNCt  VOcTttt 

•n  TO  /OGO 

f BTtPPrPPTUPt.CONPtNSPTtO  2lNt» 

2010  C*GG  SLUT  I nOIpt . I IPT /s ,r OHT ,(UP2 I I , I I ,CUP2 • I . 2 I .NCUP2 . I I 

2020  «2pris  • pfPTis  / t2pT2S 

20 1C  C*LL  T»2STT|Tt2*,».Tt2T,2,|.TC2T,aTc2T,2,l,TC2|»,NTt2l*,lf*«l 
00  201S  lal  .nTC2» 

lots  TC2IMI  • Ttjot  T I Tf/y  I I I . t(2  I 

C»LL  SlUP|O.P,N»»»«.»OOT.TC*I.Tt2T,NTt2y,| I 
20a0  y2tP  ■ TTyP  • fffls  «CO«PUT|  ONtiTOONN  TOLTaGt 

20S0  T20«  * IC2  NCOHPUTt  ••tlODOaN  TrHPr**TUO| 

IbNO  n2t  • NtSP  • n2S 

C»LL  SLUP(P2pT2S,»SL‘tOOT ,0N0N2T I I,I,|Sh|‘ohOn2T||,2.ISH|, 

. N0nDn2 , I I 

mSl  ■ N2T  • asi  HtOHPUTl  2tNtP  OlOOf  «t|GHT 

2020  NSlP  ■ NS«P  • N2T 

t»LL  TP2S| T IDtONPT I 1 ■ 1SH» .nOCPNP ,2 , 1 , OC ONN T I | . I SH | ,N0CDNi.,2, I , 

. 0CON2T 11  , I . I Sh  I .N0C0N2 . I l«P I 

tSt  • N2t  • T028tT|P2*T2S.NSLP|  8C0NPUTI  2rNtP  OlOOt  COST 
GO  TO  2IG0 

C 8*CT|VC  shunt  LIHITC* 

2000  |PSG  p 0 8StT  POOtO  SOUPCt  6P0UP  TTPt 

20fO  tShOCT  • TS*C 
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2100  C»LL  SLOP(TSM»eF,2SH,FDOT,lSMT*B(J,»l,*SMT»B(i,2l,N2SM,|| 

JtiO  VSMTOB  • VSLOP  - 2SH  • XISLOP  BCOMPUTE  TUBN-ON  VOLTABC 

2120  PSl  ■ PPS6HX  BCOHPUTC  LOAD 

2130  CALL  SLUP(PSL,WSL.PD0T,DW0PST(I,l»,0KDPSTll,2l,H0t(0PS,M 

mSL  - PSL  • WSL  BCOHPUTC  SHUNT  LINITCH  HEICHT 

21  HO  NSlP  ^P£PPNT,NDC0PN,2,1 .OCOPST.HdCOPS, 

. ICPPt 

CSL  - PSl  • TB26ET(PSL|NSLP*  BCOHPUTE  SHUNT  LIHITC"  COST 

C 

C*««**COHPUTC  total  POHCB  STSTCH  HCIBHT  and  cost 

^21S0  H'’NN  - PS*  • hB*TT  * PCN6  ♦ WSL  BCOHPUTE  POWfB  STSTCH  WfIBHT 
2140  C'’WR  - CS*  * CBATT  ♦ CCH6  • CSL  BCOHPUTE  POWER  STSTCH  COST 
CB  ■ CPO  BB4TTCBT  01SCH«R«C  CAPAcITT 

IL  ■ NCiLL  BH0<  or  storage  cells  in  SCRIES 

XICHHX  ■ IICMHX  BmaXIHUH  battery  charging  current 

ir I OEBUG.hC •0>0  I wm  TE I NwrT lOSOUTf I 

call  nSPRT  SPRINT  DESIGN  SYNTHESIS  OUTPUT 

RETURN 
C 

c*«»**crhor  hcssagc  exits 

C 

BPOO  wR I TE I NhPT .A  I 00  I 

RlOO  T 0RN4T I '0***CRROR  IN  WEEN  NUHBCR  INPUT'! 

STOP 

ASOO  »*l TE (NNRt  .8400  I VBUs . VBChH A . V CH  1 0 

8400  rORHXT I ' 0»»«VBUS  TOO  LON  to  TURN  ON  BaTTCRT  CHARGcR I * , 3 I i r 4 . 2 I I 
STOP 


C 

c***********************  internal  SUBROUTINES  ••••••••••••4»p*»*444 

c 

SUBROUT  INC  INTEG ( N|  . NN , 0 , A i ARE  A I 

c COHPUTCS  area  UNPfR  aRRAT  'A'  USING  S|HRsON«s  INTEGRATION  ROLE 


C 

OIhENSION  A(NN| 
aR|  • AIN| I * AINNI 
A»2  • 0.0 
ARI  ■ •AINNI 

11  ■ Nl  ♦ 1 

12  • NN  - I 

00  IOC  !■! I . 12.2 
AR2  ■ AH2  * A I I I 
lOO  AR3  ■ AR3  • Al  1*1  I 

area  ■ D • lARI  * 2<0  • AR2  * R.O  • AR3I  / 3.0 
RE  TURN 
C 

c 

subroutine  OSPRT 


c writes  Design  synthesis  output  tables  to  printer 

C**»*«PR|Nt  table  i:  STSTeH  design  characteristics 
c 


wRITCINWRT.IOOOI 

3000  PORHAT I * 1 ' ,TR2. 'HAVI6AT ION  AID  POWER  STSTCH  DESIGN 
. 'CHARACTERISTICS' ,Ti22.«OS-PAGC  OI'///l 

WRITCINNRT. 30101  OURAH.THELAO 
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3010  FORHATt*  mission  DURATION  • * , T 38  , t R , *t  , * TEARS', 

. T67,'BU0Y  latitude  • ' , T* T , E?  , N , ' DEGREES') 

nR 1 TE ( NWKT , 3020  I NNEE* . THELOO 

3020  FORHATI'  DESIGN  PERIOD  •',T‘<5,I2,'  WEEDS', 

. T47,'bU0T  longitude  ■ ' , T9 7 , E9  , N , ' DEGREES') 

nR  I TE ) NPPT . 3030 ) VBUS.TZN 

3030  FORMAT)'  nominal  OPERATING  VOLTAGE  ■ ' , T 36  I E9 . H , ' VOLTS', 

. T47,'TIMt  ZONE  NUMBER  ■ ' t T 97  . E 9 . <(  ) 
nR  I TE  (Nk.RT  , 3090  ) PHIAI0,TTAVE 

3090  FORMAT)'  solar  ARRAY  SURFACE  TILT  ANGLE  • ' , T 3P , E f , 9 , ' DEGREES', 

. T*7. 'AVERAGE  yearly  TEMPERATURE  ■ ',E9.9,'  DEG,  FAHRENHEIT') 

HR  I TE  ) NMRT  , 3os>0  I pH  I AAD  , TTABMX 

3050  FORMAT)'  SOLAR  ARRAY  SURFACE  AZIMUTH  ANGLE  * ',E9,9,'  DEGREES', 

. T67, 'MAXIMUM  AMPIfNT  TEMPERATURE  • ',EV,9,'  DEG,  FAHRENHEIT') 

«R I TE ) ) MKT ,3060 ) TTABMN 

3060  format  I 1 X , T67 . * Ml N IMUM  AMBIENT  TEMPERATURE  ■ ',E9,9, 

. ' OEG.  FAHRENHEIT'// I 


mRITE  ) ):y.RT  ,3)00) 

3100  format  (' 0'  , Th2  ,' DESIGN  PERIOD  LOAD  ENERGY  REOUIREMENTS  • 

, ' ) bATt-HOUPS ) ' // 1 

mNITE)N9RT,3i)0I  epcdj,epcdf,epcol 

3110  FORMAT)'  FOR  SOLAR  OCCULTATION;  ',E9,9, 

, T99,'FoP  share-mode  0PeR*TI0N:  ',E9,9, 

. T90,'F0R  battery-charging  periods;  ',E9.9//) 

mR I TE ) Nmrt , 3200  ) 

3200  format ) '0' , T5«, ' user  SYSTEM  REQUIREMENTS'//) 
mR I TE ) nmrt  ,32  1C  I IFtYPE 

3210  FORMAT)'  FLASHEF  PATTERN  TYPE  ■ ',12) 

00  3220  I>I  , 16 

3220  IF ( TL ) I , IFTYPt* 1 ) .NE.O.O ) N • I 

MRITE;NMFT,3230I  nLll.lFTYPE*l),l61,N) 

3230  FORMAT)'  flasher  PATTERN  ■ ',I6(P3.1,',  ')) 

• R I TE INMRt  , 3290  ) QON 

3290  FORMAT)'  solar  INSOLATION  LEVEL  FOR  LAMP-FLASHER  TURN-ON  ■', 

. T67.C9.9,'  MATTS/SO. METEP' ) 

mR  I TE ) NmFt , 3250  I OOFF 

3250  FORMAT)'  SCLaR  INSOLATION  LEVEL  FOR  LAMP-FLASHER  TORN-OFr  •'  , 

, T47,19.9,'  matts/so. METEP'  ) 

mM  I TE ) nmrt , 3260 ) IFON 

3260  FORMAT)'  PONER  CONDITIONING  AND  DISTRIBUTION  GROUP  ', 

. 'LAMP-FLASHING  current  •',E9.9,'  AMPERES') 

MR  I TE ) nmrt , 3270  ) IFOFF 

32YO  FORMAT)'  POMER  conditioning  AND  DISTRIBUTION  GROUP  ', 

. 'LAMP-OFF  current  ■ ' . T4 7 , E9 , 9 , ' AMPERES') 

M» I TE ) nmrt , 3280 ) PFON 

3280  FORMAT)'  poMER  CONDITIONING  AND  DISTRIBUTION  GROUP  ', 

. 'lamp-flashing  LOAD  * ' , T 4 7 , E9 . 9 , ' WATTS') 

rRITE)NMKt,3290I  PFOFF 

329C  FORMAT)'  POVeR  CONDITIONING  AND  DISTRIBUTION  GROUP  ', 

. 'LAMP-oFF  load  •' ,T4T,E9,9,'  WATTS'//) 

i«iRITE(NMRI,3300I 

3300  FORMaTI'O' ,T99,' individual  POWER  STSTEM  CHAR ATER I ST  I CS' / * 

. T37,'N0.  to  be  WEIGHT' ,T44, 'AREA' ,T81  , 'COST*/, 

. ' SUBSYSTEM' ,T2i, 'TYPE  PROCURED  tPOONOSI  ' 


I 

t 
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. ' (SQ»  FttTI  (»»' I 

wRITe(NWRT,33|0) 

3310  FORMAT ( J * ,84  I I I 

mR1TE1NIp.RT,3320)  IPSG 
3320  FORMATt'  POWER  SOURCE  CROUP* t T2? , J 2 I 
WRITC(NWRT,3  330I  NSaP  ,ttSA  ,*SA  ,CS4 
3330  FORMAT!'  SOLAR  ARr A Y ' . T3* • 1 4 , TR9 , Ef • R . T43 , E9 . R . T?* , C« > I 
WR|TCINWRT.33R0I  I SM i NSLP , MSL , CSL 
33R0  FORMAT!'  SHUNT  L I M I TER  ' , T2» , J 2 1 T 38 , « 4 , TR9 , £9  , R , T78 , Ef  ^ R I 
UR1TE!NWRT,33S0I 

3350  FORMAT!'  ENERGY  STORAGE  GROUP* I 

HR|TC!RWRT,3340>  NB ATP , MB A TT , CBA T T 
3340  FORMAT!'  BATTER Y * i T 38 , I 4 • TR9 ,E9 i R , T7B , £9 . R 1 

HR|TE!NWRT.3370I  I CHR T . NCHG , HCHG , CCHG 
3370  FORMAT!'  CM AR6ER ' i T 29 , t 2 i T38 , 1 4 . Tr9 , E9 > . T7e , E9 • R I 

WRITE! NWRT ,3310  I 
HR|TC(NWRT, 33801  HPWR,CPWR 
3380  FORMAT!'  TOT ALS ' , T R9 ' E9 . R , T78 , E9 . R ) 

C 

Cwwaw.PRIMT  TABLE  21  ENGINEERING  DESIGN  OAT* 

C 

WRITE!NWRT,ROOPI 

ROOD  FORMAT! ' 1 ' ,T5o, 'SUMMARY  OF  ENGINEERING  DESIGN  DATA',T|22l 

. 'OS-PAGE  02'/iiX,T51  .*P0R  N*VIG*TI0N  aid  POWER  SYSTEW'///! 

WRITE!NWRT,R0I0I  0URAM,EPS6 
ROlO  FORMAT!'  MISSION  DURATION  ■ * , TRO , £9 . R , * YE*RS',T70, 

, 'POWER  SOURCE  GROUP  ENERGY  REQUIREMENT  ■ *,E9.R,*  WATT-MOURS* I 
WR|TEINWRT,R020I  NWEEK,ESA 
R020  FORMAT!'  DESIGN  PERIOD  ■',TR7,I2,*  WEEKS'' 

. T70, 'SOLAR  ARRAY  ENERGY  REOUIREMENT  ■' , T I | 0 , E9 , R , ' WAtT-MOURS' | 

WRITE!NWRt,R030I  80TMX,MSaPWR 

R030  FORMAT!'  MAXIMUM  SOLaR  RADI»TI0N  ■ ' , TRO • E9 • R | * WATTS/SQ, METER' , 

, T70, 'MAXIMUM  SOL»R  ARRAY  POWER  • ' , T I I 0 , E9 , R , ' WATTS' I 

wRITE!NWRT,RORO»  08ST0T,PPS6AV 
RORO  FORMAT!'  TOTAL  DESIGN  PERIQO  SOLAR  RADIATION  ■ ',E9»R, 

, ' WATT-MOURS/SQ. meter*  . 

. T70. 'AVERAGE  POWER  SOURCE  GROUP  POWER  ■* , T i 1 0 , E9 . R , * W*TTS'//I 

C 

WR|TE!NWRT,R10C) 

RlOO  FORMAT! '0' ,T59, 'Power  source  GROUP'//, 

. ' solar  array ,T72, 'shunt  LIMITER;') 

WRITE! NWRT.R I 10  ) ACELL , ISM 

RllO  FORMAT!'  ARE*  OF  A SINGLE  SOLAR  CELL  •',Tr7,E9,R, 
t ' SOtCENTIMETERS' , 

t T75,'TYPE  OF  shunt  LIMItER  -',T|2|,I2I 
IP! ISM. GT. 01  GO  TO  R200  BSHUNT  lINITER  PRESENT? 

wR|TE!NWRt,RI20I  NP  BNO. 

R|20  FORMAT!'  NO.  OF  SoLAR  CE^-LS  IN  PARALLEL  "'.TSO,!*) 
WRITE!NWRt',R130I  NS 

Rt30  FORMAT!'  NO.  OF  SqLAR  CE^-LS  IN  SERIES  ■*.Tso|l4l 
WR|TE!NWRT,RIR0)  NESP 

RIRO  FORMAT!'  NO,  OF  ELECTRICAL  SECTIONS  IN  PARALLEL  w'iTBO.lGI 
WRITE!NWRT,RI50I  nsctot 

R|50  FORMAT!'  TOTAL  NO^  OF  SOEAR  CELLS  a',TR7,l9l 
WRITE!NWRt>I40)  SARES 

9140  FORMAT!'  SOLAR  ARRAY  RESERVE  FRACTION  w'iTrT.EV.RI 
HRlTE|NWRTi9|70)  PESBD 
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<♦170  F0RM*T(«  tLtCTRtC*L  SECTION  ELOCKINfi  OtOOc  RATING  *1, 

. ' NATTS'//) 

GO  TO  “SCO 

H20O  nRiteinnrt.nzio)  np^vslop  byes.  Shunt  limiter  present 

■*210  FORM*!!'  NO,  OF  SqLAR  CE*-1.5  IN  PARALLEL  "'.TSO.lA, 

, T75, 'OPERATING  VOLTAGE  , T J 1 6 • E9 , M , ' VOLTS') 

NRITE(NWRT,<)220)  NS'xISLOP 

‘•220  FORMAT!'  NO,  OF  SoLAR  CELLS  IN  SERIES  -',T50,l4, 

, T76, 'operating  CURRENT  , T U 6 , E9  , H , ' AMPERES') 

IF(ISH,LT,3)  GO  TO  RaOO  BZENER  OIODE? 

wRITE(NNRT,‘)230)  NESP,VSHT0R  SNO,  ACTIVE  SHUNT  LIHITER 

RZSO  FORMAT!'  NO,  OF  ELECTRIC*L  SECTIONS  IN  PARALLEL  “'.TSO,!*, 

, T75, 'ACTIVE  SHUNT  LIMITE"  TURN-ON  VOLTAGE  ■ ',E»,H,'  VOLTS') 

NRITElNWRT,<t2‘IOl  NSCTOT.TSHREF 

<t2<)0  FORMAT!'  TOTAL  NO,  OF  SoLAR  CELLS  -'.TRT.IV, 

, T75, 'SHUNT  limiter  REFERENCE  TEMPERATURE  ■ ',E9,R,'  OEG,  C' ) 

WRITE!NNRT,‘!250)  SARES.PSL 

•♦260  FORMAT!'  SoLAR  ARRAY  RESERVE  FRACTION  ■ ' , Tr7  , E?  , •♦  , 

, T75, 'ACTIVE  SHUNT  LIMIteR  LOAD  ■ ' , T I I 5 , E9  , •♦ , ' IVATTS') 

WR|TE!NWRT,‘)17PI  PEsPD 
GO  TO  ‘♦600 


■♦300  HRITE|NRRT,‘!310)  NESP.VZOP  BZENER  DIODE 

•♦310  FORMAT!'  NO,  OF  ELECTRICAL  SECTIONS  IN  PARALLEL  "'.YSn.lA, 

, T76. 'SINGLE  ZENER  DIODE  OPERATING  VOLTAGE  « ',E9,<(,'  VOLTS') 

RRITE!HWRT,H320)  RScTOT.XIZOP 

*!320  FORMAT!'  TOTAL  NO.  OF  SoLAR  CELLS  -'.T^lZ.IV, 

. T75. 'SINGLE  ZENER  OIODE  OPERATING  CURRENT  ■ ',E9.i(,*  AMPERES' | 

NR  I TE  I NIKRT  ,‘♦330  ) SARES.HOZMX 

•1330  FORMAT!'  SoLAR  ARRAY  RESERVE  FRACTION  •',Th7,E9.M, 

, T75, 'MAXIMUM  Zener  diode  heat  dissipation  ■ ',E9i<|,'  WATTS') 

WRITE!NRRT,‘!3*!r)  PESBO.HOeR 

•!3‘!0  FORMAT!'  ELECTRICAL  SECTION  RlOCMNG  DIOOe  RATING  ■',e9,R, 

. ' WATTS'. 

. T76,'HEAT  dissipation  DERATING  FACTOR  • ' , T 1 1 5 , E9  . <!  I 
wRITE!NWRT,‘!350I  NZs 

•♦350  FORMAT!  IX,T76','N0.  OF  ZENER  DIOOES  IN  A STRING  -',TI|t,U) 
WR|TE!NWRTi‘!360)  NZt 

•♦360  FORMAT!  IX, T76, 'TOTAL  NO.  OF  ZENER  DIODES  ■'.TllS.U) 
WRITE!NwRT,‘*370I  VZbR 

•♦370  FORMAT! IX, T76, 'ZENER  DIODE  BREAKDOWN  VOLTAGE  ■ ' , T I I 5 , E9 , R , 

. ' VOLTS' ) 

WRITE!NWRT,‘!380)  TZbR 

•♦300  FORMAT!  IX, T76i'ZENER  OIODE  TEMPERATURE  AT  BREAKDOWN  ■ ''E9.<I, 

. ' PEG.  C'//) 

P 

•1500  WRITEINWRT.IBlO) 

SSlO  FORMATI'O'  ,T5B, 'energy  storage  GROUP'//, 

. ' battery:' ,T72, 'CHARGER;' ) 

WRITE!NWRT,‘IS20)  NCeLL.ICHRT 

9520  FORMAT!'  NO,  OF  STORAGE  CELLS  IN  SERUi  ■'iT68,I3, 

. T75,'TYPC  of  charger  •';Ti22,I2) 

WRITEINWRt.RSSO)  NBaTT.PCmG 

*1530  FORMAT!'  NO,  OF  BaTTERIE®  IN  PARALLEL  ■',T6S,l3, 

, T7S, 'Maximum  load  for  a single  charger  • ',C9,r,*  matts'i 

WRITE!NWRT.95<!0)  OBrES 


L 
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H5M0  rORMAT('  BATTERY  RESERVE  FRACTION  ■ ' • T52 . Ef . R I 
NRITEINART.HBSCI  CBO 

R560  FORMAT!'  CISCHAR6E  CAFACiTT  EOR  A SIN6LC  BATTCRT  -'.TBZ.Cf.R 
. ' aRR-HOURS' I 

MRITElNNHTfRSAC)  CBDT 

RSAO  FORMAT!'  TOTAL  OISCMARGt  CAPACITY  FOB  ALL  BATTERIES  ■ ', 

. EV.R,'  AMP-HOURS'  I 
WRITEINMRT, <4570  1 ZICHMX 

<4570  FORMAT!'  MaXIMU<*  CM*RGIN6  CURRENT  FOR  A SIN6LE  BATTERY  , 

. EV.<4,'  AMPERES'1 

MRITE!NMRT>‘45eO)  EBCA 

<4580  FORMAT!'  TCTAL  BATTERY  ENERGY  ■ ' , T52  , E » . <4  , ' MATT-HOURS'  I 
C 

C*****PR|Nt  table  3:  battery  PeR^^ORMaNCE  analysis 

c 

MRITE!NMRt,SCOOI 

5000  format !' I ' ,Tr2 , 'POMER  LOAD  PROFILE  AND  BATTERY  PERFORMANCE  ', 

, 'ANALYSIS' ,T122,'DS-PAGE  03'///I 

MRITE!NMRT,50I0)  OBRES 

5010  FORMAT!'  BATTERY  RESERVE  FRACTION  ■ ' , T59 , Ef • <4  I 
mRITE!NMRT,5020I  BROSTO 

5020  FORMAT!'  STANDARD  NORMALIZE^  BATTERY  DISCHARGE  CURRENT 
. T59,E9.R,'  amperes'! 

MRITEINMRt, 50301  TBOSTD 

5030  FORMAT!'  STANDARD  BATTERY  OISCHARSE  TENPERATURE  ■ ' i T59 , E 9 . <4 , 

. ' OEG.  FAHRENHEIT'  I 

HRITE!NMRT,5o<40I  VChIO 

50<40  FORMAT!'  BATTERY  CHARGER  TURN-ON  INPUT  VOLTAGE  • ' , T59  i E9  i <4  , 

. ' VOLTS'  I 

MRITEINMRT, 50501  VChISA 

5050  FORMAT!'  BATTERY  CHARGER  SATUBaTEO-TO-ACT I VE  INPUT  VOLTAGE 
. T59,E9.<4,'  volts') 

C 

mRITE!NHRT, Stool  NCTCLE 

6100  FORMAT! 'CTOTAL  MISSION  BATTERY  CYCLE  RCOUIREMENTS  •'.TAzIUI 
MRI TE !NMRt ,5l to  I 000 

5110  FORMAT!'  THEORETICAL  OEPTH-OF-0 I SCHARGC  , T69 , E9 . <4 1 
MRITEINMRT, 5120)  ZICHMX 

5120  FORMAT!'  MAAIMUM  ALLOMABLE  CHARGING  CURRENT  FOR  A SINGLE  ', 

. 'BATTERY  ■',E9.<4,'  AMPERES') 

MRITEINMRT, 51301  OOOA 

5130  FORMAT!'  ACTUAL  OEPTH-OF-D I SCHARGE  • ' , T59 ^ E9 , <4 1 
MRITEINMRT, Sl<40l  EBOA 

51<40  FORMAT!'  TOTAL  BATTERY  ENERGY  • ' , T59 , E9 . 9 , » MATT-HOURS'I 
C 

MRITEINMRT, 520CI  EBOTH 

5200  FORMAT! 'oTHEORETICAL  DISCHARGE  ENERGY  REGuIREMENT  ■ ♦ , T59* E9 . <4 , 

. ' MATT-HOURS') 

I - I 

MRITEINMRT, 52101  ItEESGl 

5210  FORMAT!'  DISCHARGE  ENERGY  USING  CRITERION  NO,  ',11,* 

, T59,E9,<I,'  MATT-HOURS') 

I - 2 

MRITEINMRT, 52101  I.EESG2 
I ■ 3 

MRITEINMRT, 52101  I,ECSG3 
MRITEINMRT, 5220)  EESG 


c 

c 

c 


5220  FOHMATC  selected  DISCHARGE  ENERGT  CAPACITY  ■'.TSf.Et.R, 

. ' watt-hours') 

• ••••PRINT  table  <*:  POWER  LOAD  PPOPILE 

WR|TE|NWRT,6000)  _ , . - 

4000  r0RHATI'J'.TS3.'P0HER  LOAD  PROFILE  ANALTS I S' , T I 22 , ' OS-PAGE  OR'///) 

WRITEINWRT,4|00) 

6100  F0RMAT(9X,'N0.  OF ' , 8 * J ' ••••••  HEEKLT  DURATION  OF  ••••••', 4l. 

1  'WEEFLT  total  weE*LT  sOLAR  BATTERY  DISCHARGE  ENERGY  », 

1 'DURING'/, 

2 ' WEEK  HOOE' i§*, 'SOLAR* ,7X, 'SHARE-NODE  CHARGING' ,41 , 

2 *0F  SOLAR  ■ insolation  SOL AR' , T* , ' SHARE-NOOE' ^5* , 

2 'CHARGING*/. 

3 * INDEX  reversals  OCCULTATION  OPERATIONS  PEBIODS'.AX, 

3  'INSOLATION  HAXIHUH  OCCULTATION  OPER AT  I ONs' ,SX , 

3 'PERIODS'/, 

R IRX ,3|7X,* (HOURS) ' ) , 3X , 2 | | X , ' I HT-HRS/S0*M ) * ) ,3|2X, 

•)  ' (WATT-HOURS)'  )/i 

5 |X,l28('-'l) 

00  4300  I-I.NWEEK 

wRITC|NWRT.4200)  I ,NHR( 1 ) , T JT ( 1 ) , TKT I I ) . TLT ( I | .QQSOLTI 1 ) , 

. OSOLHXI 1 ) • (EBXI 1 (J) ,3) 

6200  F0RHAT(2X.I2.5X,l4,a(SX,Ef.RI ) 

6300  CONTINUE 
RETURN 
C 

end 


r 
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SUBROUT IKl  OSBerC|BRR,CT*,BST,TTCSC( I 
c Computes  battery  operatirg  erricitNCT 

c 

INCLUDE  COMON.LIST 
DIMENSION  AinETAiZI 

NAHELIST/BEEC/  BRR.GST.TTCSBX.A.CTA/ 

c 

DO  10  l-ZiM  BOCTCRMInC  TEMRERBTURC  INOEA 

ITP  - I 

IC  lE  I TPl  1 ) .GT.TTESG*  I GO  TO  |00 
ITP  ■ 5 

IPO  call  TBZSET I SOC.NSOC.?. I .RI iS.Z, I , AA( I , I , ITP.| I .ncta, icmri 
DO  120  l«l,NSOC  BRUIlO  EPEICICNCT  TABLE  AT 

120  Atl.l)  ■ TB26ET(S0C( I I ,BRR|  flTE»PE»ATUBE  • TP|ItP»II 

call  IBZSETISCC.NSOC.Z,  1 .Pl.S.a.I.AAIIi  I ,ITR|  ’.neta,  IE«R| 

DO  isr  l-l.NSOC  BBUILB  EFEICIENCT  table  at 

ISO  A(I,2I  ■ TBZGtTISOCli ) .BRRI  BTEMPERATUBE  • TPIlTPt 

call  TPZSETISOC  ,NS0C,7, 1 .TPUTP-I  I , 2 , 2 , I . A .NET  A , I ERR  I 
LTA  • TB2GET(05T,TTtSGX)  BCOMPUTE  BATTERY  EEPICIENCT 

IEiUEDUG.NE.O.KI  WKITEINURTiBeECI 
RETURN 
ENO 


subkqutine  COSIISALTI 

c Computes  cle»p-c»y  solar  insolation  iootci 
c 

iNCLUOt  ALLCHN.LIST 
INCLUDE  CONONiLlST 

NAMELIST/ COS  10/  BH0Ur,C0STZS,C0STW,C0STS,SALt,SAEM, 

. OON.PHIAI ,Ph|AA,ETAA,ETAB,ETAC,COSTLT,BS, 

. OOO.TV.QCSiQOT/ 

C 

70  flNOUR  • OESRaO  • (|5,0  • (T>MEH  - |2.0  ♦ t2N  » ET)  - THElODI 
30  |F ( ABS( BHOUR I .(lE.ARSi HOURT I ) 60  TO  230  BsoLAR  OCCULTaTION? 

C 

*•0  C0ST2S  ■ C0S(BM00P(  • C0S|DECL|  • COSiTHEtLA)  ♦ BNO... 

. siN(OtcLi  • sinjtmetlai  scompute  direction  cosines 

COSTW  « COSIOEfLI  • S|N(BH0KRI 

costs  > SORTiaBSII.O  - C0STZS*»2.0  • C0STti*«2.0l) 
lP|C0S(liH0UKi.LT,(TAM0tCLl/TANtTHCTLAm  COSTS  ■ -COSTS 
SO  SALT  » ASINICOSTZSI  BCOMPUTE  SOLAR  ALTITUDE 

60  SAZM  ■ ASINICOSTW  / COSISaLT))  BCOMPUTE  SOLAR  AZIMUTH 

|P|C0STS.LT.0.0I  SAZm  -pi  - SAZM 
9C  OOM  ■ APPSC  « CN  • tXPt-ATMtXC  / COSTZSl 
lie  PH|AI  ■ De6RxO  • PHltlD  BSOLAR  ARRAY  POINTING  ANCLES 

PH|AA  • OEGRAO  • PHIaAO 
120  ETAA  ■ COS(PhIAI ) 

ETaD  ■ SIU(PHIAA)  • SIN(PH|AI1 

ETaC  ■ COSlPHlAA)  • SIN|PH|A|| 

130  COSTLT  ■ ETAA  • COSTZS  ♦ ETAB  • COSTA  ♦ ETAC  • COSTS 
ISO  BS  • SDF  • QCN  / CN6«2.0  BCOMPUTE  SKY  BRIGHTNESS 

160  QOG  • REFLH  • (BS  * OON  6 COSTZSI  • ll•0  - ETaAI  / 2,0 
200  TV  ■ c.SS 

lF(C0STLT.GT.-0.2 I Yv  • O^SS  ♦ 0.S37  6 COSTLT  ♦ 

. 0.313  • C0STLT»>2,n 

OOS  ■ ODN  • (SOF  • Yv  ♦ REFLH  • iSOF  ♦ COSTZSl  / 2»0I 
2iu  bUS  « QOS  ♦ ABSIQPN  • SDF  . QDS I • COSISALTI 

220  got  ■ eOG  * QOS  STOTAL  INCIDENT  SDLAR  RxDIATION 

IF(COSTLT.6T,O.OI  ODt  • DDT  ♦ OON  6 COSTLT 
GO  TO  500  BRETllRN 

C 

230  bUT  ■ O.C  BSOLAR  OCCULTATION 

500  lF(0EBUG.GE.3.nl  HR  I TE ( NWRT ,COS I 0 I 
RETURN 

end 
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SUBROUTINf  0SCS6C(QBI.TTESbXI 
c computes  reouireo  batterv  uv  characteristic  arrays 
c 

INCLUDE  ALLCMK.LIST 
INCLUDE  COMONiLtST 

NAhELIST/ES6lV/  QBX • TTES6X , » 1 6 • X VB/ 

C 

DO  ID  Ia2,S  BOETERMInE  TEMPERATURE  INDEX 

ITP  ■ I 

ID  ipitbatti I i.bt.ttesgxi  go  TO  IDO 

ITP  - A 

I DO  call  TB2SETI X|BATT,NiVB,2, I .QBATT.NQB.I, I .VBATTI I , I . ITP.| I ,NIVB, 

• ierri 

DO  120  1-1. MVP  BBUILT  VOLTAGE  TABLE  AT 

120  TReSlTII.II  ■ TB2GET( XIBATTl I I ,OBX|  S TEMPERATURE  - TBaTTIITP-11 
call  TB2SCTI  XlBATT.NivB,2. 1 • QP  ATT  . NSB  , 2 , | >B  AT  T I I . I . I TP  I'.N  I VB  , 

. ierri 

DO  ISO  I-I.NIVB  BBUILD  VOLTAGE  TABLE  AT 

ISO  TRESlTII.EI  ■ TB26ET|XlBATTn I ,OBX)  BTEMPERATURE  • TBaiT(ITP| 
call  TB2SETIX|BATT,NIVB,2,1 .TBATTI ITP- 1 I, 2, 2,1 , TRESLT ,NESG, lERR I 
CO  IBO  I-I.NIVP 

xieiii  ■ xibatt(I)  bset  cell  current  array 

IBO  XVBlII  ■ TB2GeT< X IBATTI I I iTTESGX  I BCOMPUtE  CELL  VOLTaGE  ARRAY 

IFIOEBUG.NE.O.OI  HR  I TE ( NwrT , ESC  I V | 

RETURN 

END 
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subroutine  0SRC06(KRC0I 

initialize^  PON'CR  C0NDITI0**IN6  N distribution  SROUf  RARaHeTERS 
entry  ospcoc 

CoPRUTES  PONeR  CoNOItIONINB  and  distribution  group  current- 
voltage  characteristic  curve  arrays  (XI, XV) 

INCLUDE  ALLCHL.LIST 
INCLUDE  COHON.LIST 

NAHELIST/PCDGC/  ARCO.TTAMB, ITtYPe ,TL,TLON,TLOrF,CLS,OLi 

. ACTRL.AVGRL'.VINCI  V.TTRC0,VRI0,VR|SA,IRA,ZRS,XI  ,XV/ 

I IF(  IFTYPE .LT.O  .op.  IPTYRe.^T.IS)  GO  TO  BOO  BILLEGAL  PATTERN? 

I TLON  ■ 0.0  ®N0. 


10  IF(  IFTYPE .LT.O  .OP.  I FT YRe . ®T . I S 1 GO  TO  BOO  BILLEGAL  PATTERN' 

RO  TLON  ■ 0.0  ®N0. 

TLOFF  ■ P.O 
CLS  ■ 0.0 

CALL  tBZSETCCLSIT.NCLSI ,2,1 .CLSTT.NCLST.Z.I .CLST.NCLSI.IENBI 
DO  <*5  J-I,|S,2  ®F0R  selected  PATTERN,  CONPUTE 

TLON  • TLON  * TLI J.IFyYPE-I 1 B ILLUMINATION  DURATION  TOTAL, 

TLOFF  • TlOFF  ♦ TL ( , I» TTPE*I ) 8 ShuT-OFF  DURATION  TOTAL 
<»5  CLS  ■ CLS  ♦ TL  I j,  IFTyPE*  I I • TBZGE T ( CLR  , TL  I J , I FTYPE  M 

IF)TLPN,LE.0.CI  TP  BOO  SILLEGAL  FLASHER  PATTERN? 

IF( TlOFF.lT.O.C I GO  TO  SCO 

SO  OL  • TLON  / (TLON  ♦ TLOFF)  BNO.  COMPUTE  LAMP  OUTT  CTCLE 

AO  CLS  • CLS  / TLON  BCOLO-F I LAMENT  SURSE  COE^PICIENT 

BO  aCTRL  • VlR  / (CLR  • CLS)  BCOMPUTE  ACTUAL  LAMP  RESISTANCE 

lOO  AVGRL  ■ ACTRL  / OL  (.COMPUTE  AVERAGE  LAMP  RESISTANCE 

120  VINCIV  • (VMaXIV  . VpINIV)  / (NPCOG  . ))  BSCT  VOLTAGE  INCREMENT 

entry  OSPCOC(«PCD( 

IMP  TTPCO  - TTAMB  ♦ OTTPCO  BSET  PCOG  EQUIPMENT  TEMPERATURE 

ISO  call  SLUP(TTPcC,VRIO,FOOT,vRIOT( 1 , I ) ,vRIOT( I ,21 ,NVRlQ,n 

CALL  SLUP( tTPcP,VR|Sa,FCOT,VH|SATI I , I ) , VR ( SA Y ( | , 2 I , N VR I Sa , I I 
call  SLUF (TTPCC,ZRA,FOOT,ZRAT(|,|),ZRATI|,2I ,NZRA, I I 
call  slop ( TTPCC, ?RS ,F00T ,ZRST I I , 1 ) ,ZRST( I '2  ,NZRS,|I 
XV)1)  - VHINIV  BSET  initial  VOLTAGE  VALUE 

|F)VHIN|V.GT.VPISA|  go  to  2?0  PSELECT  voltage  position 
lF(VHINIY.GT.vPIOI  Go  TO  2n0 


|60  call  Visual IJl ,(320) 

200  call  VlSUi)2l  J)  , J2,t320l 
220  call  VISUa3IJ2l 

GO  TO  320 

2R0  call  VISU82I I ,J2,(320I 
270  call  VISUa3IJ2) 

GO  TO  320 

2T0  CALL  VISUB3I  I ) 

GO  TO  320 


QVM1NIV.LE.VRI0 


BVRIO.LT.VMINIV.LE. VRISA 


BVMINIV.GT.VRISA 


320  call  T82SCTIX|HVT,NXihV,2,|,X|HTT,NX|HT,2,I , X I H I T , NX | H I , I ERR  I 
00  330  J*|, NPCOG  BCOMPUTE  CHARACTEN I ST  1C  ARRAYS 

XIU)  ■ XI(J)  * TB2GCTIXV|JI  , TTPCO)  BPCOG  CURRENT  ARRAY 
|F|X||J).lT.0.0)  XIU)  ■ 0.0 

330  XV(J)  • XVIJ)  ♦ RLL  • XIU)  BPCOG  VOLTAGE  ARRAY 


no  r>o  r»Ao  r>r>n 


r’’ 
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ir|0EBU6.NC<0.0)  WRiTClNMRT.fCDCCl 
RETURN 

•••••error  NESSA6E  EMITS 
aoo  HRITElNWRTftlO) 

i;0  F0RNAT«'0^»»  IMCORRCCT  FLAS^^ER  PATTERN  ENTRIES* » 
STOP 


internal  subroutines 


subroutine  VISUBllJ.SI 
00  Ito  U«I.NPCDG 
|F(XV|J|.ST.VHAX|V|  return  2 
|F(XV|J).GT.VRI0I  go  to  its 
170  XI (J|  • 0.0 

IFU.eQ.NPCDG)  return  2 
l»0  XViJ*il  • *V(Jl  * VINCIV 

ITS  return 


BXVl JI.LE'VRIO 

BNAXINUH  VOLTAGE?  NO^t. 
bsaturation  condition?  no... 
BcOHPUTE  lamp  regulator  currents 
BPC06  ARRAT  size  exceeded?  no... 
BINcRENENT  lamp  regulator  voltage 


subroutine  VISUB2|K.J,tl 
DO  210  J«Kir4PCPG 
|F|XV| Jl.GT.VMAXIVl  RETURN  i 
|F|XVI Jl.GT.VRISAI  GO  TO  2|S 
XI  (J|  • c.p 

IF(KPC0.E0.2I  XKJI  - IXVIJi 
|F(KPC0.E0^3)  XIIJI  - (XVIJi 
|F I J.EB.NPCDG 1 RETURN  ) 

210  XV| J*| 1 ■ XViJl  ♦ ViNCIV 
2|S  RETURN 


BVRIO.LT.XVl J| .LE.VRISA 
BHAXIMUM  voltage?  NO^.. 

bactive  condition?  no.. I 
BcOMPUTE  lamp  regulator  currents 
VRiOl  / IAvGRL  * ZRSI 
VRIOt  / (ACTRL  * ZRSI 

BPCD6  ARRAT  SIZE  EXCEEDED?  NQ... 
BiNCREMENT  lamp  regulator  voltage 


subroutine  VISUBSlF.)  BX  V |J  1 . 6t  . VR  | S A 

call  TB2SETI VLBVT,NVi.BV.2. I •VLBTT.NVlBT.2.1 I VLBT.NVLB, lERRI 

DO  230  J-K.NPCOG 

|F|XV|J|.GT.VMAX|VI  go  to  22S  bmaximum  voltage?  no... 

VLB  ■ Tb26ET|XVIJ| .TTPCOI 

XllJI  ■ 0.0  BcOMPUTE  lamp  regulator  currents 


X I IJ  I ■ 0.0  BCOMPUTE 

|F(KPC0.ce.2l  XIIJl  • VLB  / IAVGRL  * int) 
|F|KPCD.Ea.3l  XIIJI  ■ VLB  / lACTRL  • ZRA| 
iFi J.EO.NPCDG)  go  to  23S  BPCOG  AR 

730  XV(J*|)  • XV(J|  • VINCIV  B|NCRCNE 

235  return 


BPCOG  ARRAT  SIZE  EXCEEDED?  NO... 
BINCREMENT  LAMP  REGULATOR  VOLTAGE 
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c 

c 

c 


c 


subroutine  S*EC|HtX| ,H*XV  I 
CoHRUTLS  SOLXR  XRRXT  CURReRT-VOLTXGE 
CHXRXCTErIStIC  curve  arrays  |XI2,V2) 

INCLUDE  ALLCHN.LIST 
INCLUDE  COHON.LIST 
reai.  maxi.  HAXV 

OEEINE  TCNVRTITI  « 5,0  • |T  ♦ VSR.ATI  / ».0  - 273.15 
NAMELIST/SAIV/  TSAC.CDEG.VDEG.X.XX.ALPHA.BETAjRCELL.RMO. 

XISC.DISC.Ca.CA.MFlNAL.OMPPV.OXVjHAXI .MAXV.SARRR, 
MSAPwN.NP.NS.NESP.)'! ISC.VVOC.NSV.NXX^SI ,SV,X|2,V2/ 


30  call  SLUP(OATEM,CDE<*,rOOT,SAOEGC( I , U .SAOEGCI j ,21 ,RCOt«, I I 
HO  CDeG  > 1.0  - l.0C>6  • *100.0  - CDEGAI  • (100.0  * COEGB I • 

. (lOO.n  - COeG)  BSET  CURRENT  DEGRADATION  FACTOR 

AO  call  SLUPtClATEM,VPEG,FOOT,S*OEGV(  I , n .SAOEGVi  i ,21  .NVOEG.  'i  I 
70  VOEG  ■ 1.0  - I.OC«H  • (100.0  - VOEGA I 


BSET  voltage  DEGRADATION  FACTOR 
beffective  solar  insolation 
BHOOIFIeD  solar  insolation 
BCONVERT  TEMP,  TO  CENTIGRADE 
I.B3E-S  A TSACI  / ACSTO 


. 1 100.0  - VOf G) 

100  X • SPECOR  » OOT  / 10. 0 
llO  XX  ■ X • (1,0  - COeG I 

130  TSaC  ■ TCNVRT(TSaF) 

IHO  alpha  ■ ACELL  • XX  • (7.H28E-7 
ISO  call  SLUP(TSaC,RCELL,F00T.TEMtaB,RSCELL,NRSCEL,3) 
lAO  CALL  SLUP(XX,RH0, foot, sunlit, ROE, NROE, 31 

170  call  Te2SET(BTEMP,NBTEMP,3, 1 , SUNMW , NSUNMB , 3 , i BET  AB  , NOET  aB  , I ERR  I 
BETA  • TB26ET ( TSAC  ,Xx  I / ICOO.O 

180  CALL  SLUP(0,0,X I ISC  .FDOT.VV.Xl I ,30, 1 ) aF|ND  SNORT  CIRCUIT  CURRENT 

call  slup(o.o.''voc,fdot.xt 1 ,vv,3o,  1 i bfino  open  CIRCUIT  voltage 


210  alpha  ■ NP  • alpha 

BETA  ■ NS  • beta 
RCELL  • ns  • (O.llH 
RHq  ■ ns  « RHO  / NP 
220  XISC  ■ *iH  • XIISC  • 
230  DISC  ■ alpha  • (TSAC 


BSHORT  CIRCUIT  CURRENT  FACTOR 

bopen  circuit  voltage  Factor 

« RCELL)  / NP  BSeRIES  RESISTANCE 

stemperature  correction  factor 
(1.0  ' CDEGi  BshoRT  circuit  current 

- TCStDi  - XISC  • luo  - X / xcstdi 


2hO  C3  • BETA 
CH  ■ RMCI  a 


« (TSAC  - TCSTD) 
(TSAC  - TCSTDI 


♦ DISC  • RCELL 


C 

DO  250  I»I,NPSG  B2ER0>F|LL  PSG  I-V  ARRAYS 

SI  I I I ■ 0.0 
SV( I I ■ 0.0 
V2 I I I • U.p 
250  Xl2l  I ) ■ 0.0 

DO  260  JM|.3o  BSET  REFERENCE  I-V  ARRAYS 

Xl2(JI  ■ NP  • |Xll(J|  . COE**  • XIISCI  • DISC 
260  SV(J|  ■ NS  • (VV(J)  . VOEG  • VVOC I - C3  - CH  • Xl2(J» 

DO  270  I«30.2.-l  BCMECX  'SV*  MONOTANUITY 

IFISVI I l-SVI I-l I.LT.0.0)  60  TO  270 
NSV  ■ I 
GO  TO  2B0 
270  CONTINUE 
NSV  ■ I 

2S0  NXX  ■ 31  - NSV 
V2l I I ■ 0.0 
J ■ NPSG  - 1 

DO  2BS  L>|,U  BREOEFINE  PSG  I-V  ARRAYS 

CALL  SLUPl V2ILI ,SI ( L I ^ FOOT , 5 V I NS V I , X 1 2 I NSV I .NXX, I I 


B-UO 


IFISMLI.GT.O.OI  60  TO  285 

S«(L)  ■ 0,0  “SET  final  I«V  POINT 

CALL  SLUP(0.0,  V2IL  ) , F OOT  , X 1 2 t NSV  1 ,SV(NSV  I .NX  x',  11 
HFINAL  • L ♦ I 

SKNFINALI  - 0.0  “SET  FINAL  I -V  POINT 

V2IHFINALI  ■ 2,0  • ANAXI (V8US,V2IL)  ) 

60  TO  300 

285  V2(L*n  • V2(L)  ♦ VSAINC 

GO  TO  800  HPS6C  RANGE  EXCEEDED 

300  DO  305  L»1 ,Nf|NAL 
305  XI2ILI  ■ NESP  • SMLl 
C 

320  mSaPNR  - 0.0  8INITIALI2E  HAXImuN  POWfR 

|F(X|2( I I.LE.O.OI  60  TO  8H0 

NAXX  - V2(NFinaL-II  / 3.J  BINiTlALIZE  HAX-PONER  VoLTAGE 

OHPPV  • (V2INFINAL-1 I - MAXV)  / 50. 0 “SET  VOLTAGE  INCREMENT 
OXV  • OHPPV 
DO  360  L-l ,60 

330  CALL  SLOP(MAXV, maxi .FOOT, V2.Xt2,NFINAL-l  .1 » 

SAPNH  ■ Maxi  • MaXV  OCOMPOTE  solar  array  (PSG)  PONER 

380  IFiSAPNR.LE.MSAPWR)  go  to  350  0PS6  PON£R , LE . M AX  I MUM  PoN£R7 

msapnr  ■ sapnr  “no.  redefine  maximum  PqNER 

MAXV  - MAXV  ♦ OXV  “increment  PSG  VOLTAGE 

GO  TO  360 

350  IF(0XV,LT,0MPPV)  GO  TO  370  8MA X-POWER-PO I NT  LOCATED? 

msapwr  - 0.0  “NO.  re>initialize  maximum  Power 

MAXV  ■ MAXV  • OXV  B AND  MAX-POMER  VOLTaGE 

0*V  ■ OXV  / 10.0  BREOEFINE  voltage  increment 

360  continue 

GO  TO  820  BHAX-POWER-POINT  NOT  FCwND 

370  MAXV  ■ MAXV  - DXV  BYES.  SET  MAX-POWER  VOLTAGE 

|F(MAXV.LE.0,0>  MAXV  ■ O.OOOOl 

MAXI  ■ MSAPWR  / MAXV  BSET  MAX-POWeR  CURRENT 

C 

IF  1 debug. nE.  0.0  I WRiTEINNRT.SAIVI 
return 
c 

C»»»»«ERR0R  message  exits 

c 

800  tvRITEINMRT.OlQl 

8|0  FORMATI'O***  SOLAR  Array  I.V  DIMENSIONS  EXCEEOED'I 
wRITEINNRT.SaIV) 

STOP 

820  •RITE(NmRT,830I 

830  F0RMAT(*0«»«  MAX-POWeR-ROINT  calculation  failed  TO  CONVERGE') 

STOP 

8m0  wRITE(NNRt,850I 

850  r'0RMATI*0«»«ILLE6AL  SOLAR  ARRAY  I-V  CURVC'I 
WRITEINWRT.SAIV) 

STOP 

C 

ENO 
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SUSROUTlNt  TE<»HC 

COHPUTES  TERHI '**TOR  CHARACTERISTICS 

INCLJOE  alLC'H.LIST 
INCLUDE  COHON.UlST 
DlHENSION  V*flt5) 

NAhelIST/TER"/  ALRHEO, VARjOECL ,ET,APPSC,ATHtXC,SOr , 

, THE TlA .HOURT ,SRT ,sST/ 

20  AL"HES  • O^lGA  • Date  osolar  vector  location 

CDSIAS  • C0S<AL‘’hE8I 
C0S2A9  ■ COS12.O  • ALPME9I 

C0SJA3  • C0S(J,0  • AUPHE9I 

SlSlAO  ■ SIN(»tPMESt 
SIN2A9  ■ SIN|2>3  • AlPHEQI 

SINJA9  • SIN(3.0  • AlPHESI 

J • S 

IP(  ITAPE.LE.Ol  J ■ 2 

DO  10  l-liJ  SCOHPUTE  SOLAR  RaOIatION  VARIABLS 

30  VA^iIl  ■ Till, II  ♦ F*(2iM  • COSlAQ  ♦ FA|3,I|  • C0S2Aa  ♦ 

. riM.I)  • C05)AQ  * ‘'AIS.II  • SINIAQ  * 

. rAlb.n  • SIN2A9  * FA|7,n  • SINSAQ 

OECL  ■ DcGRAC  • VARIil  BSOLAR  DECLINATION  ANGLE 

ET  ■ VAI<I2I  SeQUATIUN  OF  TIME  DIFFERENCE 

IF(  ITAHE.VE.OI  50  TO  50 

aPPSC  • 3.IS2NS0B  • VAR(3I  BAPPaRENT  SOLAR  CONSTANT 

ATHeXC  ■ VARiri  BATHOSPHeRE  extinction  FACTOR 

SOF  ■ VARI5I  “SAY  DIFFUSE  FACTOR 

SC  THeTLA  ■ OEGRAO  • TMelAD  BBUOT  LATITUDE 

AU  HOURT  * PI  BCOHPUTE  TERMINATOR  HOUR  ANGLE 

IF| THETLA. LT. 10.5  • PI  - DECLII 
. HOURT  ■ ACOSt-I.O  • TAN(THETLAI  • TANiOECLII 
too  SRT  • 12.0  • 11.0  - HOURT  / P|1  - eT  « T2N  ♦ TMELOO  / 15^0 

SST  ■ 2N.0  • SRT  BCOHPUTE  SUNRISE  G SUNSET  TINES 


C 


iFtOEBUG.NE.O.Ol  NRITEINWRT ,TCRH1 

RETURN 

END 
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PADRVR 


c 

c 


c 


c 


SUBROUTINC  RtORVR 

HaJN  driver  program  for  PERRORMANCC  analysis 

INCLUDE  ALLCNNiLIST 
INCLUDE  CONON.LIST 
INCLUDE  PACNN.LIST 
INCLUDE  SUNCNN.LIST 

NAMELIST/PAOUTI/  I S I ZE • NCTTPE • VBUS , YC AR .DATE . T I HEH . 0 ATEN . 

. ACCGB, CT, HLl A. TC. I NOFLS, NTS, dura. DURAN, DURAN, 

. OAYSST/ 

NAHELIST/PAOUTZ/ACTRL,*RRSCi*TMEXC,AVGRL,DECLiDL,ET,NOURT, 

. HF INAL,NSAPWR,NAP$G,NO,aDT,SDF,SRT,SST,TCZ,THETL*, 

. T S AC, TSaF,TTANB,TTC*«,TTPCO,VBUS; VINCI  V, VVOC,*l isc, 

. ZRF| ,ZRFV,xr,XV,Xl2,V2,ZI,ZV,SI,SV,X|e.XVB.OlFIv, 

. TRESLT.TRCSi ,TRESV/ 

NANCLIST/PAOUT3/  BcUR , VB AT , « 1 PCD , X I PS6 , X I Z , X I S A , X I EC . 

, VDI00C,VSA,paATT>CS6,PPCD,PPSG,PSL,PSA,MARSA, 

. CHRN,ETA,eB,D0B,N,SP6R,TBFR2,LNlS/ 


IDtSlZEa3*S*ll»ll 
NPLT  • NPlT  ♦ I 
HXPLTS  • 1 
20  NCTYPE  • 0 

rRO  H ■ 0.0 

30  READ|NRD,}B,CRR*BOO,CNDaTgol 
, year, DATE, TINEH, OATEN, aCCOB 
3S  FORNATI  I 

IF(ACCQB.LE.O.O)  ACCOB  ■ 0.01 
IEIHLLA.LE.O.OI  HLLA  ■ 1.0 
NO  TiNEN  ■ TINEH  ♦ OATEN  / 60.0 

oaten  • 0,0 


BSET  PA  PRINT  RECORD  SI|C  IWOROSi 
SSET  NaXIHUN  number  OR  I-V  PLOTS 
BINITIALIZE  i-V  PLOTS  COUNTER 
SSET  initial  run  FLAG 
BINITIALIZE  Integration  interval 
bread  start. up  data 

CT,HLLA,TC, INOFLS 


BCONVERT  start  TIME  TO  HOURS 
BINITIALIZE  elapsed  TIME 


DATSST  ■ 0.0 

50  YEARi  • Tear  bset  start  tine  reRerence  data 

OATEI  • DATE  ♦ TIMEH  / 2Nio 
OATEMI  ■ OATEN 

IRiDEBUG.CT.O.O  .and;  DATEl .GE. DEBUG)  HR | TE I NHRT , P AOUT 1) 


hRITE(MWRT,5BI 

65  FORNATI*!  lEARI  OAT!  HOUR  OAYSSI' ,6X , * VBUS' ,NX , * X |PS6» , 

. NXI'XITT' ,3X,«XIPC0*.3X,*8B*//) 

call  Zener  binitIalize  zener  diode  parameters 

call  PASUBiBaoI  BINItIAL  performance  analysis 

call  PRTPLT  BjTORE  PcRRORNANCE  ANALYSIS  DATA 

IF( XPLTI I 1 ;LC^0.0I  go  to  60  B* INSTANTANEOUS*  I-V  PLOTS? 

IFIDATEI .GE.XPLTI n ) CALL  CBVPLT 

HXPLTS  > MXPLTS  * I BINCRCNENT  i-V  PLOTS  COUNTER 


60  NCTYPE  • 1 

REA0|NRD,6S,CRR*B20.CN0a7Q0l 
65  FORNATI  I 

IFINTS.LE. I ) NTS  • I 
70  OURAH  ■ 26.0  • dura  * OURAH  * 
HINT  ■ OURAH  / NTS 
DO  660  LNTS-i.NTS 
7S  H2  ■ 0.0 

SO  H - ANINI |HINT*H2.HLLAI 
DO  620  LNIS-1 ,20 


Bset  tine-variant  run  flag 

NTS|DURA,0URAH,0URAN,CT.TC 
BREAD  TIHE-VaRIANT  DATA 

DURAN  / 60*0  bset  RUN  DURATION 

BSET  RRINTOUT  TINE  INTERVAL 
BPERPORN  DURATION  LOOR 
BSET  RERERCNCE  printout  TINE 
BSET  INTEBNAtION  TINE  INTERVAL 
BPERRORN  integration  LOOP 


nonooo  onn 
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0*TeH  • OtTEMi  ♦ H / an 
0*TE2  • 0*TEl  ♦ H / 2<*. 
0*TE  > «(NT(0*TE2I 
TlHEH  ■ 2<«,0  • I0*TE2  - 
IF(  TIMEH.6E.2‘*.0)  TIHEH 
IFI0ATE.LT. 366^0)  60  TO 
0*TE2  ■ DATE2  - 345.0 
0*TE  ■ 4INT104TE2I 
YEAR  ■ TEARl  * 1.0 
•CLL  - 3 
H3  ■ H 

IF(0EBU6.GT.0.0  .AND'  0 
CALL  PASUB(«430) 

IF  IQB.LE.O.OI  60  TO  840 
OATEHI  ■ OATEH 
OATEI  • 0ATE2 
date  ■ AINTIDATEI  ) 

TiNEH  ■ 2M.0  • (OATEI  - 

YEARI  ■ YEAR 

M2  ■ M2  ♦ MJ 

IF (M2.LT .H m ) 60  TO  80 

OAYSST  ■ DAYSST  ♦ H2  / 

IF(MXPLTS.6E.NPL T I 6o  T 

IF (XPLT(MxPLTS).LE.Oio) 

IF (OATEI. LT.XPLT(MXPlTS 

call  CRVPLT 

MXPltS  • MXPlTS  ♦ 1 

call  PRTPLT 

GO  TO  40 

return 


BCOMPUTE  'TIME*  OF  CALCULATION 


OATE  I 

■ TiMEM  . 2**.0 
96  BNEN  year? 

BTE5.  revise  DAY 

bincrehent  year 
BlNITlALIlE  LOAO  SELECTOR 

bsave  time  increment 

ATC2<6E.0EBU6|  MR  I TE ( NWR T . P AOUT | ) 

BCOMPUTE  I-V  arrays  6 NeM  SOC 
BBATTERIeS  OISCHaRGED?  no... 

BRCOEFINE  time  reference  data 


BINCREMENT  printout  reference 
bprintout  required?  yes... 

29. 0 BCOMPUTE  DAYS  SINCE  START  OF  TEST 

0 640  BMAXIMUM  no.  OF  I-V  PLOTS?  NO... 

GO  TO  440  By  INSTANTANEOUS'  I.V  PLOTS 

)l  60  TO  640  B required  AT  CURRENT  TIME? 

byes,  produce  i»v  plots 
BiNCREMeNT  i-v  plots  counter 
bstore  Performance  analysis  data 
bget  Next  time-variant  input 
bterminate  performance  analysis 


.error  message  exits 


NRITEINWRTi8I0I 

FORMAT t ' 0»«»ERROR  IN  START-UP  DATA') 

STOP 

MRITE(NWRT,8301 

FORMATI »0««»ERR0R  IN  TIME-VARIANT  DATA*) 

STOP 

MRITE(NMRT,870I  QB 

FORMAT! 'O.^^BATTERIEi  COMPLETELY  OISCMARGeD;  QB-  '.Fa. 31 
NRITE|NNRT,880I  YE AR ^ 0 ATE , T I MEH , 0 A YSS T 

F0RMAT(<»X,'TIME  - ',F5.0,F<(.0,F5.2,2X,' (';F8;3.'  DAYS  ', 

'SINCE  START  OF  TEST)'/,'  ••aEXECUTION  TERMINATED') 
call  PRTPLT  8PR00UCE  FINAL  SUMMARY  ENTRY 

call  crvplt  bproduce  I-v  Plots 

return  bend  performance  analysis 

NRITEINMRT.TIO) 

F0RMAT('06»»E0F  encountered  at  START-UP  DATA' I 
STOP 


internal  subroutines 


subroutine  PASUBisI 

Controls  computation  of  equifnent  i-v  characteristics, 
OIFFCRCNCC  CURVE.  CU^VE  INTERSECTION,  OPERATING  POINT 
Parameters,  and  new  state-of-charge  for  each  battert 


c 


100  C*L(.  »’S(iC(CT,TCI 


8C0HPUTC  PS6  ]-V  CHARACTERISTICS 


t 

f 


C 


c 


C 


c 


c 


I 10 


I |2 


1 1** 


I 1* 


t 18 
120 
1 30 


1 *10 
M2 
1 ta 

MS 


ISO 

ISS 


I 60 


I 80 
210 

230 

2S0 

260 


270 

290 

300 

310 

320 


l8(a0T.Gr.0.0l  GO  TO  112 
MOFLS  • 1 


81.-2 
GO  TO  120 

iriQOT.GT.QONI  GO  TO  IM 


MOFLS  ■ 1 
KL  ■ 3 
GO  TO  118 
|F(aOT.GE.OOFF  I 
KL  • I 

IF( INDFLS.EQ.OI 
KL  ■ 3 
GO  TO  118 
MoFLS  ■ 0 
KL  - I 
GO  TO  120 
lF(NCTrPE.EQ.O» 
KPCO  - Kl 
IF(NCTTPE.£Q.q| 
lFtNCTTPE.NE.OI 


GO  To  116 
GO  To  120 

kl  • 2 

CALL  PC0G(KPCD| 
CALL  PCOGClI'Firi 


bdetehhine  lahp  flasher 
B condition  iNOICATOR  AND 
B load  selector  inoicatoh... 


BlAHP  on... 


blahp  Flashing... 


blamp  off... 


BSELECT  PCOG  l-V  LOAD 
BCOHPUTE  PCOG  I'V  ARRATS 


00  1H2  l-l.NPCOG  BSET  DIFFERENCE  CURVE  VOLTAGES 

OlFIVI I , I I ■ XVI  I) 

00  MS  I-I.NaPSG 
J ■ NPCDG  * I 
oiFivt  j,  n - svm 

call  SORT|OIFIV,NPcOG*NaPSG.NDi  Bsoht  difference  curve  voltages 
00  15S  1-1, NO  BriNO  difference  curve  currents 

DIFIVI  1,21  ■ 0.0 

IF I OIF  1 V I I . 1 ) .GE.SV (NAPSG-l 1 I GO  TO  IS* 

call  SLUP|OIFlV|I,i)joiFIVll,2) , F DOT , b - , S I , N APSG- I , 1 ) 

CALL  SLUPtOlFIVl I , I I ,0X1 .FOOT, XV, XI ,N'COG, I I 
0IFIV(I,2I  • 0IFIV(i;21  - 0*1 


VPSGMX  ■ SVINAFSG-II  ’ BSET  HAXr'lUM  SOLAR  ARRAT  VOLTAGE 

IFIUOT.LE.0.01  VPSGHx  ■ 0.0 

call  ESGCiVPSGHX)  BCOHPUTE  ESG  MV  CHARACTERISTICS 


iFt debug. GT. 0.0  .ANOi  0 A TE2 • GE . OCBUG I MR  I TE I NHRT , P A0UT2 I 

call  inter  BCOHPUTE  OPERATING  POINT  VOLTAGE 

call  SLUPt VBus,* ITT.FDOT.OIPI V|  I , I I ,DIFIV| I ,21 ,ND. I I 

BCOHPUTE  OPERATING  POINT  I.V... 
call  slup I vbus.bcur .foot , TRESV .TRESI ,NESG,  I I 

call  SLUP(BCUR,VBAT,FOOT,XiB,XVB,NIVB, I ) BENERGT  storage  GROUP 
call  SLOP)  VBUS.  * IPCD^FDOT,  xV,X  I ,NPc06,  I 1 BPMR  CONO  G o’lST  GROUP 
XIPSG  ■ 0.0 

iFiQOT.LE.O.Ol  GO  TO  290 
|FtV8US.GE.SV(NAPS6-T I I GO  TO  290 

cal'  slup ( VBuS,X|PSG,FOOT,SF,SI ,NAPSG-I , I I BpoMER  SOURCE  GROUP 
call  SLUP(VBus,*I7;F00T,2V,TI ,NSL, I I BsHUNT  LIMITER 

XlSA  ■ XI2  * XIPSG  BSOLAR  ARRAT 

XlEC  • XISA  / NESP 

call  slup I XlEC • VOIODe .FOOT.ADI 1 I .2  I • ADI I I . I I .NADI  , I I 

VSa  ■ 0.0 


c 


c 


c 


c 


IFIQOT.UE.O.OI  60  TO  330 

vsa  ■ vBus  * voiooe  * RS*  • xiec 

330  pB*TT  • ABSIBCUR  • VBAT I 
PCS6  ■ ABS(VBUS  • XItT) 

PPCD  ■ VBUS  • XIPCO 
PPS6  ■ VBUS  • XIPSG 
PSL  ■ VBUS  • XIZ 
PSA  ■ VSA  • XISA 
3<»0  MARSA  ■ MSAPRR  - PSA 

360  iFiNCTYPE.EOiOl  ETA  ■ 1.0 
380  IFIBCUR.GE.O.O)  GO  To  3T0 
ETA  ■ 1.0 
GO  TO  <420 

390  CMRN  • BCUR  / CB 

<400  CALL  BATEFC(CMRN,ETA'qB,TTESS| 

<410  iF(eta.le.o.oi  eta  > O.OOOOl 
V20  DGB  ■ BCUR  • eta  / CB 


BCOMPUTE  OPERATING  POINT  POMCR... 
BBATTERT 

BeNERGT  STORAGE  GROUP 
BPOWER  COND  6 OIST  GROUP 

bpower  source  group 

BSHUNT  LIHITER 

bsolaR  array 

BCOHPUTE  EQUIPNENT  power  nargin 
BCOMPUTE  battery  CFFICIcNCT 


BCOMPUTE  normalized  CHARGE  RATE 
BCOMPUTE  efficiency 
beliminate  negative  values 
bset  rate  of  change  of  soc 


<4*40 

<450 

■460 

<470 

<490 

5|0 

570 

590 


600 

610 


620 


IF4NCTTPE.E9.0I  GO  TO  990 
IF4KL.NE.31  4J0  TO  <490 
H ■ DL  • M3 

IF4KLL.EQ. 1 ) H • H3  - H 
09B  ■ H • OOB 


binitial  run? 

BNO.  NEW  integration  INTERVAL  IF 
B LAMP  Flashing  (0<QDT<aoFF) 

BSET  STATE-OF-CHARGE  INCREHENT 


lF4NCTTPt.E9.0  .OR^  KLL.NE.JI  GO  To  600 
lF40QBtE9.0.0)  OOB  ■ O.OOOOl 
xas  ■ ABS4D0BI 

lF4H*ACC0B/XOB.GE.HiNT-H2>O«0l ) GO  TO  600  BMaXIMUH  TIHESTEP? 

IF4 XQB.LT.0.79ACC9B  .OR.  BNO.  IS  SOC  INCREHENT  WITHIN 

XQB.GT.ACCOB)  go  to  62S  B SPECIFIED  ACCURACY  LIMITS? 

QB  > QB  « OQB  BYES.  COMPUTE  NEW  ST ATE-OF-CHARGe 

CALL  SLUP4  0B.sP6R,FO0T,SPGRI I 1 , 1 1 ,SPGR1 4 I ,21 .NSPGR.n 
CALL  SLUP( SPGR.TBFRZ.POOT.TBX^RZI 4 1 . 1 ) .TBFrZ I | 1 .2) .NTBFRZ.  I ) 
IF4DEBU6.GT.O.O  .AND.  0ATE2*GE,DEBU6|  WR I TE 4 NNRT , PA0UT2 1 
IF4DEBUG.GT.O.O  .and;  DATE2.GE. DEBUG)  WR | TE 4 NWRT , PA0UT3 | 

ifincttpe.eo.oi  return 

IF4KL.NE.3I  RETURN  1 
iF4Kll.ne;3)  return  i 

KLL  ■ I BREDEFINe  load  SELECTOR 

KPCO  ■ I 

GO  TO  130  BCOHPUTE  NEW  CHARACTERISTICS 


62S  H ■ H • ACCOB  / XOB 
IF4LNIS.LT. 201  return 
iFiXOB.LE. ACCOB)  GO  TO  600 
LYEAR  ■ IF|X)TEAR) 


BNO.  redefine  interval 
BHAXIMUM  number  of  iterations? 
BYES.  ACCEPTABLE  ACCURACY? 

BNO.  convert  'TIME'  TO  INTEGER 


LDAY  ■ IFIXIOATEI 

WRITE (NWRT,  6271  LTe AR ,L0 AY , T IMEH , ACCOB  ,00B  , H 
*27  FORMAT! 'OppwCOHPUTeD  STATE-B^-CHARGE  INCREMENT  IS  OUtSIOe  THE  ', 
. 'SPECIFIED  ACCURACY  L I M I TS I ' /<4X  , ' T I ME  • ' . 1 1 , ' I ' , I 3 , 

. ':' .F5;2.RX, 'ACCOB  ■ ' , F?  .5 , *IX  , ' OOB  • ',F7,5,RX, 

. 'H  - •;F|0.SI  sprint  diagnostic  message 

GO  TO  600  BUSE  computed  ST ATE-OF.CHARGE 


end 


c 


c 

c 


subroutine  B*TEFC(CHRN,eT*i9ST ,TTCS6) 
COHPOTES  BATTERT  OPERATING  EEFICIENCT  . 


INCLUDE  COHONtUST 
DIMENSION  A(NETA,2I 

DO  10  I«2.H 
ITP  • I 

10  IF(TP( I) .GT.TTESGl  GO  TO  lOO 
ITP  • 5 

100  CALL  TB2SET(S0C,NS0C,2, I ,BI t5,2, 
00  120  l•l,NSOC 

120  All, 11  ■ TB2>.ET|S0C(  i I .CHRNI 

call  TB2SET(S0C,NS0C.2. I .BI 1^.2, 
DO  150  l»l,NSOC 

150  AM, II  • TB26ETIS0CM  ) .CMRNI 

call  TB2SET(SOC,NSOC,2, I .TPIITP- 

ETA  ■ TB26eT(QST,TTESGI 

RETURN 

end 


BOETERMINE  temperature  INOE* 


I.AAM.I.lTP-n.NETA.IERRI 

bbuilo  ErriciCNcr  table  at 

BtEMPERATURE  • TP(lTR»n 

I, AA(l,l,lTPr,NCT4,IERR| 
BBUILD  EFFICIENCT  TABLE  AT 
BTEMPERATURE  • TP(lTP) 

II, 2,2,I.A,NETA,IERR| 
eCOHPUTE  BATTERT  EFFICIENCY 


TRESLT|NTRrS,2l  * A* 

AO  NTRES  ■ NTRES  - NTP  ♦ I 

00  TO  i-SiNSl  bmooify  smunt  limiter  i-¥  array 

TO  1F|ZI M I.GE.Sn I I I 2|(l|  ■ Sllll 

too  CALL  QLINEI AV.XI ,NPCoG, 1 ,2,R|XASC.YASCI  BPLOT  !•¥  CURVES 

call  OLINEC V2.XI2.MFINAL, I .RtS.XASC.YASCI 
CALL  QLINe  I ZV.Zl ,NSL, 1 . 2 . i 0 • XASC , Y ASC I 
CALL  QLINE(SV,5I .NAPSG, 1 , T , I T , X ASC , Y ASC I 
call  QLINe  lOir  I VI  I , I I .DIFIVI  l .2I  ,N0,  t ,<I,2<|,XaSC|TASC| 

CALL  BLINEITReSLTINTpm I , TRESLT I NTP , 2 | , NTRES , j , | , 27 , X ASC I TA5C » 
call  PLOT! 13. 0,0.0. Ri  BESTABLISH  NEN  PLOT  OR, BIN 

RETURN 

END 


50140-27 

PA-CRVPLT 


SJBROUTINE  crvplt 

c PLOTS  'Instantaneous*  esuiphent  i-v  characteristics 
c 

INCLUDE  ALLCHNtLIST 
INCLUDE  PACNNiLIST 

REAL  HNMX(<t),  0PR|2|,  XASCI2I,  rASC(2l,  ZEROI2I 
C 

HNMX(1|  ■ 0.0  BDETENHINE  plot  BOUNDARIES 

MNHX(2I  ■ I. I • AHAXi |V2(MrlNALI .XVINPCDGI ) 

MNHXCNI  ■ 1.1  • AMAX I ( X 12 ( I I iX I I NPCDG I I 

hNMXOI  • -2.0  • hnhxoi 

call  QSCAlE IHNHXI n.i0.0,2.l|X*SC) 

CALL  0SCALEIHNHXI31 ,9.0.2'.  i'XASC) 

CALL  AXISlO.O.O.O. 'VOLTAGE' .-T.IO.O.O.O.XASCI I I .XASCizn 
call  ax  is to.o.n.O,' current' ,7,9.0,90.0. TASC I I ) ,TASCI2I I 
ZEROdI  ■ 0.0  BDRaH  zero-current  LINE 

ZEROI2I  ■ 0.0 

call  QLINeINnhX.ZERO.Z.I ,0.3,XASC,TASCt 

ZEROll)  ■ XiTT  aoRAN  OPERATING  CURRENT  LINE 

ZER0I2I  • XiTT 
OPRI 1 ) • 0.0 
0PR(2I  • VBUs 

call  9L INC  I opr. zero,?. I ,0l3,XASC,TASC) 

ZEROllI  ■ VBuS  BDRAW  OPERATING  VOLTAGE  LINE 

ZER0I21  ■ VBuS 
OPR ( I ) ■ YASC I 1 I 
OPRtZI  ■ XITT 

call  qline I Zero. OPR ,2, i,o.3,xasc,tasci 

c 

call  STNBoLI  ; .0, 10,0,0.21  ,' instantaneous  i-v  PLOTS  E0R:'',0.0,2BI 
call  STMBoLI 1.5, 9.5, oilN, 'TEAR*  '.O.O^A) 
call  NUH8CRI 999, , 999 ; , 0 , 1 9 , TE AR , 0 .0 , 0 ) 
call  SrHB0L1999, ,999. ,0.1*1,*  OAT-  ',0,0^81 
call  NONOCRI999, ,999; , 0 . I 9 , PA TE , 0 . 0 , Oi 
call  SrMB0L(999, ,999, ,0. 19 ,*  TINE*  ',0.0,91 
call  NUNeERl999. ,999’  ,0. 1 9 , T I NEH , 0 . 0 , 3 I 
C 

DO  10  I*1,NCSG  BDETERNINE  PORTION  OF  ENER6T 

NTp  * I a Storage  broup  curve  to  be 

10  IF I TRESLT I 1 .2 1 .BT.MNNX ( 3 n 60  TO  20  B PLOTTED 

20  ifintp.le.i)  go  to  30  btruncation  not  required 

NTP  * NTP  . I BTRUNCATE  TO  NINIMUH  CURRENT 

CALL  SLUP(NNnxI3» .XX;fOOT;tRESLT| I , 2 I , TRESLT li , 1 ) , NESG , 1) 
TRESLTINTP,  1 I * XX 
TRESLT(NTP,21  • NNHX(3I 
30  00  90  I»NTP,NES6 
NTRES  * I 

|F(TRCSLT( I , 1 i.GT.NNnXIZII  QO  to  S5  Bnax.  voltage  exceeded. 

90  IF|TRESLT( I,2l.6T,NNNXI9n  QO  TO  SO  BNAX^  CURRENT  EXCEEDED. ,, 

GO  TO  AC  Btruncation  not  required. •• 

so  call  SLUP(MNnxi9 I ,XX;fDOT;tRESLT| I ,21 .TRESLT) I , I I ,NES6, I I 
TRESLTINTRES.I ) * XX 
TRESLTINTRES.ZI  ■ NNMXI9I 
60  TO  AO 

SS  call  SLUP|NNhXI2I ,XA;FOOTiTRESLT|| , I I .TRESLTi i ,21 .NES6, n 
TRESLTINTRES.I)  * HNNXI2I 


B-I48 


SUBKOUTIMC  CSeCIVPSfiMXI 

COMPUTES  CNeR«T  storage  GROUP  iBATTERT)  UNIT  AND 
GROUP  CURRENT'VOLTAse  arrays  (TRESl ,TRESV|TRcSLT| 

INCLUDE  ALLCMNtLIST 
INCLUDE  COMON.LIST 
INCLUDE  PACHn'.LIST 
NEAL  VBH(NESGIi  XIBh(NESGI 


NO  TTeSG  ■ TTAMB  * OTTESG  BCOMpUTE  ESS  TENPCRATURt 

AO  call  esgiv  bget  battery  i-v  arrays 

70  DO  75  l>|,NIVB  BCOMPUTE  MOOiriEO  ESG  I.V  ARRAYS 

VBM(|I  • XVBdt  » RL  • XIBiD 

IF| ICHRT.cOtO)  60  TO  75  BCHARGER  PRESENT?  YCS..^ 

ir I XIBI I I .GE.O.OI  60  TO  75  BPOSITIVC  CURRENT?  NOt.j 

call  SLUPi ABS(XIB( 1 ) ) .VDR0P|E00T,A02( 1 ,21 .A02n  1 1 I ,NAD2,| I 
vSHU)  • voM(n  - vopop 
75  XIBM( I ) ■ XIBI I I 

IR(  ICHRT.NC,0)  00  TO  170  BSELECT  eSG  CHARGE^  TYPe 


;e«»**NO  charger  PRESENT 

so  CALL  ESGSUB 
60  TO  500 


BCOMPUTE  ESG  I-V  ARRAYS 
BRETURN 


•CONSTANT  voltage  CHARGER  WITH  CURRENT  LIMIT 


170  CALL  SLUP(XIcHMX,V1CHMX,PD0T,XIBM,VBH,NIVB,I I 

DO  175  I*1,N1VB  BPOSITION  Nax. CURRENT  I.V  POINT 

K ■ I B IN  PROPER  sequence  IN  ARRAYS 

175  IPIXIBMI I I .GT.XICHMXI  60  TO  ISO 
K - HESG 
GO  TO  i?0 

ISO  DO  185  I-NIVB>,-I 
XIBMI |«|  I ■ XlBHI I ) 

185  VBmI I«| I ■ VBMI I 1 
IfO  XlBMIKI  ■ XICHMX 
V8HIXI  ■ VICHMX 

IPIXIBMIK-I I.LT.XICHmXI  GO  TO  200 

XlBMIK.ll  ■ XIBMIK.2I  * |X|CHMX  . XISMIK.}!!  / 2,0 
VBMIX.1I  • VBMIK.21  * IVICHMX  • VBN(K>2n  / 2^0 

200  CALL  SLUP|TTES6,VCHISA,r00T|VCHlST| I ,11 ,VCHISTn.2i|NyCHis,l I 
CALL  SLUP|TTES6,VCMIojr90T,YCNlOT< 1,1  I , VCM lOT I 1 , 2 1 , NVCN IQ , | ) 

210  CALL  SLUP|TTES6,ZCMR|,rD0T,ZCNRATI I ,1  I ,ZCHRATt I , 2 I ,NZCNR4 , | I 
CALL  SLUP|TTE96,ZCHR5,r00T;ZCHRST( I ,n,ECHRST| 1 ,2  I ,NZCNR}, | | 
call  TB2SETI VCHVT,NycHV,2,l »VCHTT,NVCHT,2il,VCHIT,NVCNI,|ERR| 


220  DO  2R0  I*1,NES6 
L ■ I 

2*10  IP|  XIBMI  I I ,6e.0>0I  Go  to  2B0 
60  TO  BOO 


250  iPiyPSGMX.GT. lyCHIo  • yBHILill  BO  TO  aio 


BPOBITiyc  CURRENT?  NO*;; 
ball  NCBaTITE  current  ysLUEB 


00  240  IWL,NCBB 
240  XIBNI 1 1 ■ 0,0 
GO  TO  220 


BV0LT8tE|LE*PSB. NAK|NUN« , • . 

BZCR0*PILL.  RENAININB  CURRENTS 


u o 


50U0-27 


280  DO  290  I"L,NES«  BWOLT»«t»®T , f S«  N8I|NUN.»* 

K • I 

VEST  * VCMIO  « VBMili  « ZCHRS  • Xl•N|II 

iFt VEST.«E,VCMtS*|  So  TO  300  0S*TUR«TEl>  CNARSCR  CONDITION^ 
290  vSNdi  - VEST  BTES*  REVISE  VOLTACC  VALUE* 

GO  TO  320 

300  00  310  I-K.NesS  BNO.  ACTIVE  CHARSE*  CONDITION 

VEST  ■ VBNII)  * ZCHRa  • XIBMin 
310  VBHiII  ■ TB26ETI VeSTItTESSI  BREVISE  VOLTAGE  VALUE* 

320  DO  325  I>I,NESG  BSET  CURRENTS. LE.LINIT  VALUE 

32S  IF| XIRMI n .ST.XICHNX I XIBHili  • XICHRX 

call  esgsub  bconpute  esc  uv  arrats 

500  RETURN 

BOO  WR|TE«NNRT.B|0I 

810  FORMAT! *0««*ALL  BATTeRT  CURRENT  VALUES  ARE  NEGATIVE*) 

STOP 


INTERNAL  SUBROUTINES 


subroutine  ESGIV 

00  10  i"2.5  boeteRnine  tenperaturc  index 

ITP  - 1 

10  |F| TBATTl 1 I .ST^TTESGi  60  TO  100 
ITP  ■ A 

100  call  TB2SET«X1BATT,N1 VB,2, 1 ,0BATT,N«B,2, I^VDaTTI I ,1 • ) ,NIVi, 

• lERRI 

DO  120  I>1,N1VB  BBUILT  VOLTAGE  TABLE  AT 

120  tRESLTH.iI  ■ TBeSeTiXIBATTI I I ,QBI  B TEMPERATURE  ■ TBaTT|ITP«11 
call  TB2SET(XIBATT,N1VB,2,1  .ooatt.ngb'.e.i^vbattu  ,l,ITP);N|yi, 

. lERRI 

00  150  I-l.NiVB  BBUILD  VOLTAGE  TABLE  AT 

150  TRESLT11,2)  • TB2SETiXIBATTn I ,GB)  BTEMPERATURE  ■ TBAIT(ITP) 
CALL  TB2SETI  XIBATT;ni  VB,2, 1 .TBATTIITP.I  1 .2  1 2 , 1 • TRESLT '.NES*  , lERR  I 
DO  180  l-liNlVO 

XlBili  > CB  • XIBaTT(I)  BSET  BATTERT  CURRENT  ARRAT 

180  XVB(I)  ■ XN  • TB26ET|X1BATT( I 1 .TTESGi  BCONPUTE  VOLTAGE  ARRAT 
RETURN 


SUBROUTINE  ESSSUB 
NPX  • NIVB 

IF(  ICMRT.NE.OI  NPX  • NESG 
00  IRO  I»1,NPX 

90  TRESLTII.1I  ■ VBN|n  BPORN  SPECIAL  CSS  VQLTASC  ARRAT 

130  TRESVlIl  • TRCSLTII.I)  BSET  CELL  VOLTAGE  ARRAT 

190  VBNltl  • VBN(||  / XN  BCONPUTC  CELL  VOLTAGE  ARRAT 

DO  140  l■l.NESS 

vCH  > TRESvii)  / XN  Bconpute. BATTERT  current  arrat 

ISO  CALL  SLUPl VCN.TRESI li ) tPDoTtVBN.XIBN.NPX.i I 
140  TRCSLT(I.2I  > NBATT  • TRESMI)  BCONPUTE  E*S  CURRENT  ARRAT 
RETURN 


B-51 


501*0-27 


PA-INTER 


SUBROUTINE  INTER 

tOCATES  'STABLE*  INTERSECTION  FOR  DIFFERENCE  AND 
ENERSr  STORAGE  fiROUP  CHARACTERISTIC  I.V  CURVES 


INCLUDE  ALLCHN.LIST 
INCLUDE  CONQNtLIST 
INCLUDE  PACHn'.LIST 

NANELIST/INTR/  OIFIV.TRESLTi VBUS, VHAK.VNIN, 
IFLG.D.DV.DVX.VI  ,v3.V<t,  I ,XID.X|T/ 
DATA  EPS/O.OOOl/ 


10  |FL6  ■ 0 

VHaX  - OIFI V(NO,  I I 
VNIN  • DIFIV(  1,1) 

VI  ■ VBUS 
OV  • 0.1 


eiNITlALlZE  LIHITS  FLAG  ■ 0 
9SET  NAXINUM  allowable  VOLTAGE 
eSET  minimum  allowable  VOLTAGE 
BSET  initial  voltage  estimate 

8INITIALIZE  voltage  INCREMENT 


100  call  SLUPi VI ,XI0,F00T(0IF| V( I , 
CALL  SLUP( VI ,XIT,F00T,TRESLT( 1 
0 ■ XID  - XIT 
VJ  ■ VI 

IFSD.NE.O.O)  GO  TO  ZOO 

lF|  V|  .LT,  VMIN  .or,  Vji.GT.VMAX) 

VI  ■ VI  - OV 

GO  TO  100 


).DlF|V(l,2l,NDill 

ll,TRESLTli,2)',NES6,ll 

bcompute  current  difference 

OSAVE  voltage 
bat  intersection? 

GO  TO  300  Byes.  VOLTAOE  limit? 
bno.  decrment  voltage 
bcontinue  Search 


200  VI  ■ VI  « DV 

1F( VI .LT. VMIN  ,0R,  viiGT.VMAX) 
call  SLUPi VI ,XI0, foot, OIF J VI  1 , 
call  SLUPiVl, XIT, foot, TRESLFII 
IF |0*( X lO.XiT I 1 MOO. 200. 

V3  ■ VI 
0 • Xio  - XIT 
GO  TO  200 


BINCREMENT  voltage 
GO  TO  300  BVOLTAGE  LIMIT? 

I .OIFIVI 1 ,2) .ND.l I BNO. 

I I .TRESLTI 1 ,2) ,NESG,  I I 

bcrossing  encountered? 

BNO.  SAVE  PRESENT  VOLTAGE  VALUE 
BSAVE  PRESENT  CURVE  DIFFERENCE 
bcontinue  Search  for  crosspoint 


300  |F| IFlO.Ne.O)  go  TO  BOO 
IFlG  • 1 
VI  • VBUS 
OV  ■ -OV 
GO  TO  100 


BCURVE  scan  completed? 

BNO.  SET  voltage  LIMIT  FLAG  > I 

BRE-INITIALIZE  voltage  estimate 
BREDEFINe  voltage  increment 
bscan  in  opposite  direction 


BINTERSECTION  encountered 
BSET  voltage  INCREMENT 
BSEARCH  for  I NTERSECT I ON. ^ . 

BINCREMENT  VOLTAGE 


NOO  VR  ■ AMlNl I Vl ,V3| 

OVX  ■ ABSl V3  - VI ) / io.O 
DO  RSO  I*I,20 
DO  R20  J-1,10 
V*»  • VR  ♦ OVX 

call  SLUPi VR,XID,F00T,DIF1VI 1 ,I I .DIFIVI I ,J)  ,ND,1  I 
call  SLUPi  VR.XIT.FOOt.TRESLTi  1 , 1 I , TRESLTI  1 .Zl^ESG.t) 

IF|XID-XITI  RRO.SOO  BPaSSED/aT/BeFORE  INTERSECTION? 

R20  IF| I XIO-XITI .LT.EPSI  GO  TO  500  BaCCEPTABLC  CURVe  DIFFERENCE? 
RRO  VR  ■ VR  - OVX  Bno.  decrement  voltage 

RSO  OVX  ■ DVX  / 10.0  BREVISE  VOLTAGE  INCREMENT 


SOO  VBUS  ■ VR 
RETURN 


BSET  operating  POINT  VOLTAGE 


C«**««cRROIt  MCSSACE  EXITS 
C 

•00  WMITEINMRT.INtKI 

CAUL  CRVPLT  SNO  STAtUC  OPCRATINS  PO|MT..« 

WRITEINWRT.SIO)  TE AR’ DATE ^ T I NCH  BWRITC  ERPOR  NCSSA«E 
•10  PORNATI *0*««N0  STABLE  OPERATINC  POINT  POUND*/^ 

• NX, 'TIME  > ' •P5^0,F5.a.r5*2///.7X, 

• 'ES6  VOLTAfiE  ESfi  CURRE**T  DIP  VOLTAfiE  DIP  CURRENT'//! 

N ■ MINOINO.NESfil 

00  >20  l-l,N  BWRITE  ES6/0IP  l-V  ARRAYS 

•20  WR|TCINWNT.«30)  TRESlTI I . i I tTRESLTi I ,21 lOlPIVI 1 ,II,D|PIV|I,2I 
•30  F0RNATI7X,2I2IPII>5,3XI,3X|) 

N ■ N « I 

IPlND.&T.NESOl  60  TO  040 
DO  OSO  l-N,NCSG 

• NO  NRITElNWRT.asOl  TRESlT I I , , TRESLT | I , 2 I 

• so  F0RNATI7X,2IF11>S,3X|  I 

GO  TO  900 
•40  00  870  laN.NO 

• 70  WRITEINNRT.OSO)  OIPI VI  I , 1 ) ,0|PIV( I ,2! 

• •0  P0RMATI3aX,2in I .S,3X  ! I 
900  STOP 

C 

end 


B-53 


non 
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PA-PCDGC 


SUBROUTINE  PCOGlKPCOI 

initializes  power  CONOItIoNINS  (,  distribution  group  P*R*HETCRS 
entry  pcdgc 

COMPUTES  power  conditioning  and  distribution  group  current- 
VOLTAGE  characteristic  CURVE  ARRAYS  IXI.XV) 

INCLUDE  ALLCHN.LIST 
INCLUDE  COHON.LIST 

10  IF( IFTYPe.lt, 0 .OR.  I F T YPE . «T , 1 5 I GO  TO  BOO  BILLEGAL  PATTERN? 

NO  TLON  ■ 0,0  BnO, 

TLOFF  ■ 0,0 
C'.S  ■ 0,0 

C »LL  TBZSet ICLSI T.NCLSI ,2, I , CLSTT , NCLST , 2 , I , CLST , NCLS I , I ERR I 
DO  NS  J»l,l5.2  BFOR  selected  PATTERN,  COMPUTE 

tLON  • TLON  ♦ TL( J, IFTYPe*!  I B ILLUMINATION  DURATION  TOTAL, 

TLOFF  ■ TLOFF  ♦ TL( J*l , IFTYPE*!)  8 SHUT-OFF  DURATION  TOTAL 
NS  CLS  • CLS  * TL( J.IFTYPE*!  I • TBzGE T ( CLR , TL ( J, I FT TPC ♦ 1 >» 

IF(TL0N,LE.0.0I  GO  To  800  BILLEBAL  FLASHER  PATTERN? 

IF( TLOFF, lT. 0,0)  GO  TO  800 

50  OL  ■ TLON  / (TLON  ♦ tLOFF ) BNO,  COMPUTE  LAMP  OUT?  CTCLE 

CLS  ■ CLS  / TLON  BCOLO-F I L AMeNT  SURGE  COE^EICIENT 

80  ACTRL  ■ VlR  / (CLR  • CLSi  ^COMPUTE  ACTUAL  LAMP  RESISTANCE 

iOO  AVGRL  ■ ACTRL  / OL  8C0MPUTE  AVERAGE  LAMP  RESISTANCE 

120  VINCIV  ■ (VMaXIV  . VmINIVi  / (NPCDG  . I)  *SET  VOLTAGE  INCREMENT 

entry  PC06C(XPCD) 

INO  TTPCO  • TTAMB  * OTTPcO  8SET  PCOG  EOUIPMENT  TEMPERATURE 

150  call  SLUP( TTPCD, VRIoJFOOT , vRIOT( I , 1 I , VRIOTI I ,21  .NVRIO,  1 > 

CALL  SLUP( tTPCO, VRISa.FOOT.VRISATI I , I » , VR i S A T ( I , 2 » , NVR I Sa , I I 
call  SLUP( TTPCO.ZRA .FDOT.ZRATI 1,1) ,ZRaT( I jz) ,NZRA,  1 ) 

CALL  SLUP ( TTPCD.ZRS.FOOT, ZRST» 1 , 1 ) , ZrsT ( I ,2 ) ,nZRS, 1 I 
XVd)  ■ VMIMlV  BSET  initial  VOLTAGE  VALUE 

IF( VM|N|V,6T,VRISA)  GO  TO  2’0  BSELECT  VOLTaGE  POSITION 
IF( VMINIV.GT.VRIO)  GO  TO  2N0 

160  CALL  Visual (Jl  ,*3201  BVM I N I V . lE • VR  I 0 

200  CALL  VISUB2I Jl .J2.«320> 

220  call  VISUB3IJ2I 
GO  TO  320 

2N0  CALL  VISUB2( 1 ,J2,(320I  6VR 1 O ,L T . VM | N I V . LE , VR I SA 

270  call  VISUB3<J2I 
GO  TO  320 

290  call  VISUB3(1)  BVM 1 N I V . GT • VR I S A 

60  TO  320 

320  call  TB2SET( XIMVT,NX|MV,2, 1 .XIMTT,NXIHT,2,1 ,XIHIT,NX1MI .ieRR) 

DO  330  J«|, NPCDG  BCOMPUTE  CHARACTERISTIC  ARRAYS 

XIU)  ■ XliJ)  ♦ TB2GeT(XV(JI,TTPCD1  BPCDG  CURRENT  ARRAY 
IFlXIlJl.LT.oiol  XlIJ)  • 0.0 

330  XV(J|  • XVIJ)  ♦ RLL  • XIIJI  BPCOG  VOLTAGE  ARRAY 

RETURN 
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C«««*«eKIIOK  message  exits 

c 

800  MR|TEINI)RTi8|0I 

810  FORMAT! 'O***  INCORRECT  FLASHER  PATTERN  ENTRIES*) 

STOP 

••••••••••••••••••••••  internal  subroutines  •••••••••••••••••••••••• 

subroutine  ViSUBKJ.fl  BX  V ( J I • LE  • VR  1 0 

00  180  J-I.NPCOO 

1F| XV |J| .6T. VHAXI V ) RETURN  2 ^MAXIMUM  VOLTACE?  NO^** 

IF|XV( JI.GT.VRIO)  GO  TO  19S  BSATURATION  CONDITIONT  N0««. 

(70  XllJl  - U.O  acOHPUTE  LAMP  RECULATOR  CURRENTS 

IF( J.eO.NPCOG)  return  2 BPC06  ARRAY  SIZE  ERCCEOeOT  NO.** 

180  XV(J«||  - XV|J)  « ViNCIV  BiNCREMENT  LAMP  REGULATOR  VOLTAfiC 

I8S  RETURN 
C 
C 

subroutine  VISUB2(K,J,«)  BVRI0*LT.XV( J) .le>vrisa 

DO  210  J«K,NPCD6 

IF|XV|J|.6T.VMAXIV|  return  3 SHAXIHUM  VOLTAGE?  NO.** 

IF(XV( JI.GT.VRISA)  Go  TO  2|S  BaCTIVE  CONDITION?  NO*.^ 

XllJl  > 0.0  BcohpUTE  lamp  regulator  currents 

1F|KPCD*EG*2 I XllJ)  - (XVIJI  - VRlO)  / lAVSRL  * ZRSI 
IF(KPCD>C0.3|  XIiJ)  > IXVIJ)  • VRlO)  / IACTRL  « ZRS) 
lF|J*CQ*NPCDGl  RETURN  3 BpcoG  ARRAT  SIZE  EXCEEOEO?  Nq*** 

210  XV|J*||  . XV(J)  « ViNCIV  BINCREMENT  LAMP  REGULATOR  VOLTAGE 

215  RETURN 
C 
C 

SUBROUTINE  VlSUB3<K)  BX V | J ) * 6T* VR | SA 

call  T02SETIVL»VT,NVL0V,2;i,VLBTT,NVLBT,2,l .VL8T,NVLB,IERR| 

DO  230  JaxiNPCrC 

IF(XV( JI.GT.VHAXIV)  GO  TO  235  BNAX|MUM  VOLTAGE?  NO^** 

VLB  - TB2GCT|XVIJ|,TtPCDI 

XllJl  ■ 0.0  BCOHPUTE  lamp  REGULATOR  CURRENTS 

IFiKPCO.EO^EI  XllJl  ■ VLB  / lAVGRL  *■  2RA  | 

IF(KPCD*EQ*3)  XllJl  ■ VLB  / IACTRL  ♦ ZRA) 

IF| J.EO.NPCOG)  GO  TO  235  BpCDG  ARRAT  SIZE  EXCEEDED?  NO^.. 

230  XV(J*il  - XV(j|  ♦ VINCIV  BINCREMENT  LAMP  RE«ULATOR  VOLTA«E 

235  return 

C 

end 


non 


subroutine  prtplt 

WRITES  PeRFORRANCE  ANALYSIS  SUMMARY  DATA  TO  SPILE  FOR 
LATER  PRINTOUT  AND  TREND-aNAL YS I S PLOTTING 

INCLUDE  ALLCMNiLIST 
INCLUDE  COMON.LIST 
INCLUDE  PACMN.LIST 
INCLUDE  SUMCMN.LIST 


IYeAR  ■ IFIXtYEARl 
IDAY  ■ inxiDATEI 
TIME  ■ TIMEH 


OSET  time  of  test 


PPTl I I 1 
PRTI (21 
PRTl (3) 
PRTl ( H ) 
PRTl (5 ) 
PRTl  (6) 
PRTl (71 
PRTl  (8) 

PRT2 ( I ) 

PRT2(2> 

PRT2(3) 

PRT2IHI 

PRT2(5I 

PRT2(6I 

PRT2 I 7 I 

PRT2(0» 

PRT2(?I 

PRT2( 10) 

PRT2  I 1 I ) 


DAYSST 

VBUS 

PPSG 

XIPSG 

PESG 

XITT 

PPCD 

X IPCD 

OAYSST 

TSAF 

QOT 

VSA 

X ISA 

PSA 

MSAPWR 

marsa 
VBuS 
- XIZ 
• PSL 


BUNReGULATED  bus  summary  data 


bpower  source  group  summary  data 


PRT3(II  • DAYSST  BENeRGY  ST 

PRT3(2)  ■ TTESG 

PRT3(3I  ■ PBaTT  ♦ ABs(BCUR  • (VBUS  - VBATII 

PRT3(‘*)  • VBuS 

PRT3(5I  • PBATT 

PRT3(6»  ■ BCUR 

PRT3(7(  ■ VBaT 

PRT3(8)  • QB 

PRT3(9|  • CB  • GB 

PRT3( 10 ) ■ SPGR 

PRT3( II)  • TBFR2 


benergy  storage  group  Summary  data 


WRITE(NWRT,20|  year (DATE  |T1MCH,DAYSST. VBUS .XIPSC,! I TT.XIPCD.QB 
20  FORMAT!  lX.FS.O,'  ,F*»;0,*  ;*  iF5,2,2X,F8.3,3X,r8,3,K2X,r*;3n 

call  NTRAN|SFlLC.|,lSlZC.tYEAR.ISTAT,22)  BWR I TE  RA  OUTPUT  RECORD 
IF) ISTAT.LT. I ) GO  TO  80  BBAO  I/O  STATUS? 

return  bno. 


BO  HRITE(NWRT.90I  I YEAR '.  I OAT  ^ T I ME  BTCS« 

90  FORMAT) »0»«*NTRAN  WRITE  ERROR  AT  DATE  • » 1 1 R , » I * , 1 3 , » | • .FBij I 
STOP 
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PA-PSGC 


SUBROUTINC  PSfiCICT.TC) 

COMPUTES  PONCM  source  fiROUR  (SOLAR  ARRAY)  CURRENT- 
VOLTACE  characteristic  curve  arrays  (SI,SV) 

INCLUDE  ALLCNNiLIST 
INCLUDE  COMON.LIST 
INCLUDE  PACHN.LIST 
REAL  MAXI,  MAXV,  VAR(SI 

DEFINE  TCNVRTITI  > sio  • (T  ♦ «(5V,67I  / TtO  - 273.15 
NAMELIST/PSS/  CT , TC , ALPHEO , V AR , DECL , ET , APPSC J XTMEXC , SDP  , 
thetl*.hourt,srt,sst,bhour,dtta,dttamb,ttamb; 

TSAF ,TS AC, CoSTZS.cOSTN, COSTS, SALT, SA2M,CCM,QDN, 
PHIAI ,RHIAA,ETAA,ETAB,ETAC,COSTLT,BS,ODfi,TV,«DS' 
gDT,CDEG,VDEG,X,XXtALPHA,BETA,RC|LL,RHO,XISC,DISCi 
C3,C<t,MSAPNR,DMPPV,DXV,HAXI  ,HAXV,SAPWR/ 
NANELIST/PSGOUT/  yeAR.DATE.ZIMeh, vzsb,sascc,saocv,vzinc, 
MFINAL,NaPS6^XI2>2,ZRFI  ,ZRFV,ZI  ,ZV,SI  ,SV/ 


BO  ALPHEO 
cost AQ 
C0S2A0 
C0S3A0 
SlNI  AO 
SlN2Aa 

SIN3A0  ■ SIN|3,0  • ALPHEO) 
J ■ 5 

IF( ITAPE.NE.OI  J • 2 
DO  fO  1*1, 

90  VARI I I ■ FA( I ,I I 
. FAIR,!) 

. FAI«,I) 

OECL  > DECRAO  • VARI I I 
ET  • WAR(2i 

iri ITAPE.NE.OI  GO  TO  (10 
ARPSC  ■ 3.lS29B0a  • VARI3I 
ATMEXC  • YAR(9I 
SOF  ■ VARISI 


omega  • date 

COSI ALPHEO ) 
C0S(2.0  • ALPHEO) 
C0SI3.0  • ALPHEO) 
SINixLPHEQI 
SINI2.0  • ALPHEO) 


PAI2,I|  ' 
C0S3A0  « 
SIN2A0  *■ 


ssolaR  Vector  location 


COS 

PA|5 

PAI7 


bcompute  solar  Radiation  variabls 

1 AO  *■  FA|3,  I I • C0S2AQ  « 

, I ) • SIN) AO  * 

,1)  • SIN3A0 

bsolaR  Declination  angle 
beouation  of  time  difference 

BAPPaRENT  solar  constant 
BATMOSPHeRE  extinction  factor 
bsky  diffuse  factor 


BBUOT  latitude 

bcompute  terninator  hour  angle 


110  THETLA  • DEGraO  • THelAO 
120  HOURT  ■ PI 

|F(THCrLA.Lr;iO.S  • pi  - OECLI) 

. HOURT  ■ ACOSI-l.O  • TANITHETLAI  • TANlOECL)) 

1*0  SRT  • 12.0  • (1.0  - HOURT  / P||  • ET  • TZN  « THELOO  / Ik^O 

SST  • 2R.0  - SRT  BCOMPUTE  SUNRISE  G SUNS(T  TIMES 

170  BHOUR  • OEGRaO  • 115.0  • ITINEH  . 12^0  * TZN  * ET)  « THELOO) 

10  1F( ITAPE.ES.OI  go  to  30  BNO.  USE  NOAA  TAPE  INPUT7 

CALL  ROTAPE  BTES; 

CO  TO  *0 

30  CALL  SLUP(OATE^0TTA.rOOT,DTTAl|l,l),OTTAl(l,2l,NDrTA,i)  RNO; 

RO  CALL  SLUPiTINEN.OTTAmB.FDOTiOTAMBI 1 1,1) .OTANBI | 1 .2  I iNDTAmB, | ) 

ttamb  • TTAVe  ♦ OTTA  ♦ OTTABB  bcompute  ambient  temperature 
*0  TSAF  m TTAMC  ♦ OTTPSG  BSOLAR  ARRAY  TEMPf  IFAHREMHEITI 

70  rSAC  ■ TCNVRtiTSAP)  BSOLAR  ARRAY  TEMP.  (CCNtICRADEI 

Too  |P(ABt|BNeUR|,CC;*BSiNOURT)l  CO  TO  IIBO  BSoLAR  OCCULTaTIOMT 
iniTABC.HCvbl  *0  TO  RIO  BUSE  NOAA  TAPE  INRUTT 
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1*0  COSTZS  ■ COS(BHOUR)  • COS(DECL)  • COSiTHEtLA)  * BNO.ft 

. SINiDECLI  • SINiTHETLA)  bcohpute  direction  cosines 

COSTW  - COSIOECLl  • SINIBHO^'PI 

COSTS  - SORT(ABS(i,o  - C05TZS«»2,0  - COSTW««2io>l 
IF|  COSI BHOUR I .LT, ( TAN( 0ECL|/TAN( THETLA  I I I COSTS  ■ -COSTS 
200  SALT  ■ ASINKOSTZS)  BCOMPUTE  SOLAR  ALTITUDE 

210  SAZM  ■ ASINICOSTW  / COS(SaLT))  BCOHPUTE  SOLaP  AZIMUTH 
IFICOSTS.lT.O.O)  SAZM  -PI  - SAZM 
220  I • I ♦ IFIXICT)  8SET  CLOUO  TYPE  INDICATOR 

IFII.LT.)  .OR.  I.6T.3I  00  tO  0000  BVALlD  CLOUD  TYPE? 

230  CCM  ■ 1.0  BYES^ 

IF(TC.CQ.O.O)  so  to  2S0  SZERO  CLOUD  COVER?  NO..^ 

j ■ 1 bset  solar  altitude  indicator 

IF{SALT.6t;PI/M.0I  j ■ 2 

CCh  ■ POil.J)  * PlIl^JI  • tC  ♦ P2II,J)  • TC»«2.0  ♦ 

. P3(1.J|  • TC»»3.0  8C0MPUTE  CLOUO  COVER  MODIFIER 

2S0  OON  ■ APPSC  • CN  • CCM  • E*R«-ATMEXC  / COSTZS) 

270  PHIaI  ■ OeGRAD  • PHUID  BSOLAR  ARRAY  POINTING  ANGLES 

PHIAA  ■ OEGRAD  • PHIaAO 
200  ETAA  ■ COSiPHlAl  ) 

ETAU  ■ SlNlPHlAA)  • SINIPHIAI) 

ETAC  • COSIPHIAA)  • SIN(PHIAI) 

2»0  COSTLT  ■ ETAA  • COSTZS  ♦ ET*B  • cOSTW  ♦ ETAC  • COSTS 

310  BS  ■ SDF  • QDN  / CN**2.0  BCOMPUTE  SKY  BRIGHTNESS 

3R0  ODG  • REFLH  • (BS  ♦ ODN  • COSTZSI  • li.O  - ETaA)  / 2.0 
300  YV  - O.HS 

IF ) C0STLT.6T.-0.2  I Yv  ■ O.SS  ♦ 0.N37  • COSTLT  ♦ 

. 0.313  • C0STLT*«2.0 

QDS  ■ QDN  • ISOF  • ry  * REFLH  • (SDF  * COSTZS)  / 2.0) 

370  QDS  ■ QOS  ♦ ABS(QDN  • SDF  . QDS)  • CoSISALTt 

300  QOt  > QDG  * QD$  BTOTAL  INCIDENT  SOLAR  RtOIATION 

1F(C0STLT.GT.0.0I  GOT  ■ QOT  ♦ QON  • COSTLT 
HlO  CALL  SLUP(OATEM,C0eG;fDOT,SADeGC( I . I ) .SADEGC) 1 ,2) .NCOeG.i ) 

■*20  COEG  - 1.0  • l.OE-0  • (lOO^O  • CDEGA)  • (100.0  • COEGBI  • 

. (looto  - coeG]  bset  current  degradation  factor 

*•<*0  call  SLUP(OATEM,VOEG.FOOT,S»OEGV(1.1  ),SA0EGVn,2).NV0CG,|  I 
RSO  VDCG  ■ 1.0  - I.OE-R  • (100.0  - VDEGA)  • 

- (100.0  - VDEG)  bset  voltage  degradation  factor 

••70  X ■ SPECOR  • QOT  / IQ.O  BEFFeCTIVE  SoLAR  INSOLATION 

Roo  XX  a X • (i.o  - cdeG)  bmooified  Solar  insolation 

SOO  ALPHA  a ACELL  • XX  a (T.RZOE-?  - 1.03E-V  • TSACI  / ACSTD 

510  CALL  SLUP(TSAC,RCELL>00TiTEMTAB,RSCELL.NRSCEL,3) 

CALL  SLUP( XX.rHO.FOOT.SUNLIT.ROE.NROE.SI 
520  call  TB2SETIBTEMP,nBtEMP.3. I ,SUNMW.NSUNHw;3. I^BETAB.NBETaB, IERRI 
BETA  a TB2GETITSAC.XXI  / lOOO.O 

530  CALL  SLUP(0.o,XI|SC.FDOT.VV,XI|,30,| ) BFINO  SHORT  CIRCUIT  CURRENT 
CALL  SLUP(0.0,VVoc;FooT,XII,VV,30,I ) BFiND  OPEN  CIRCUIT  VOLTAGE 
560  alpha  ■ NP  a aLPHa  BSHORT  CIRCUIT  CURRENT  FACTOR 

BETA  a NS  a BETA  BQPEN  CIRCUIT  VOLTAGE  FACTOR 

RCeLL  " ns  • (O.IIR  a RCELL)  t NP  BSERIES  RESISTANCE 
rHq  a ns  a RHo  / NP  BTEMPERaTURE  CORRECTION  FaCToR 

570  XISC  a NP  a X | I Sc  a (|aO  a CDEGI  BSHORT  CIRCUIT  CURRENT 

BBO  DISC  a ALPHA  a (TSAC  -TCSTDl  • X|SC  a 11*0  - X / XCSTDI 
SVO  C3  a beta  a (TSAC  • tCSTD)  * DISC  a RCELL 
CR  a RHO  a (TSAC  . TcSTDI 
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• XI2(JI 

FOR  HONOTANICITY 


00  400  Jal.NPSG  BZERO'FILL  fS«  I»V  ARRAT 

SI ( J)  " 0.0 

SV(J)  ■ 0^0 

V2(J)  ■ 0.0 

XI2<JI  - 0.0 

DO  610  J"l,30  8SET  REFERENCE  l-V  ARRAY 

XI2IJI  <•  NP  • (XIIiJ)  - CDE6  • XIISC)  « DISC 

SVIJ)  ■ NS  • (VV(J)  . VDEG  • VVOCI  - C3  • C*!  • XI2(>>I 

00  620  1-30. 2, -I  8CHECX  'SV»  FOR  HONOTANI 

IFiSVI I l-SV(I-l  I .UT.0^0)  60  TO  620 

NSV  ■ I 

GO  TO  630 

CONTINUE 

NSV  • I 

NXX  ■ 31  - NSV 
V2 ( 1 ) ■ 0.0 
J ■ NPSG  - I 

DO  635  L-l,J  eREOEFlNE  PSG  I>V  ARRAYS 

CALL  SLUPl V2(LI ,SI ( L ) , FOOT , S V ( NS V I I X I 2 ( NSV ) ,NXX , 1 I 
|F(SI  (D.GT.O.OI  60  TO  63S 

SlILl  ■ 0.0  8SET  final  I-V  POINT 

CALL  SLUP(0.0,V2tL) , FOOT , X I 2 I NSV | , SV ( NSV  I , NXX ^ 1 ) 

MFINAL  ■ L ♦ 1 

SKHFINALI  • 0.0  8SET  FIN*L  S/A  I-V  POINT 

V2INFINAL)  - 2.0  • AN A X | ( VBUS , V2 I U ) I 
60  TO  650 

V2IL*l I ■ V2(LI  ♦ VSAINC 

60  TO  8200  8PSCC  RANGE  EXCEEDED 

00  655  L"l .NFINAL 
XI2ILI  • NESP  • SI (L) 


HSAPWR  ■ 0,0 

lFtHFINAL.LE,2)  60  To  1200 
1F(XI2I  1 liLE.0.0)  GO  TO  120° 
HAXV  ■ V2(NF'1NAL-1  ) / 3.0 
ONPPV  • ( V2INF1NAL-1 I - NAXV)  / 
DXV  • ONPPV 
00  710  L"1.60 

CALL  SLUP(NAXV, maxi .FOOT, V2»*I2 
SAPWR  ■ Maxi  • maxv 
IF(SAPNR,LE.MSAPNR|  GO  TO  700 
MSaPWR  • sapwr 
MAXV  ■ MAXV  * OXV 
GO  TO  710 

If (OXV.LT.OMPPVI  60  TO  720 

MSaPWR  ■ oio 

HAXV  ■ MAXV  - OXV 

DXV  • OXV  / JO.O 

CONTINUE 

60  TO  BlOO 

MAXV  ■ MAXV  . OXV 

IF(HAXV,LC^0^0)  NAXV  ■ O.OOOOI 

maxi  ■ MSAPWR  / MAXV 


8tNlTlALl2E  MAXIMUM  POWER 


eiNiTiALizc  max-power  Voltage 

50,0  8SET  VOLTAGE  INCREMENT 


,MFINAL»I,I) 

8C0MPUTE  solar  ARRAY  |PSG|  POWER 
BPSG  power. LE^AXIMUM  PqWERT 
8no.  redefine  maximum  Power 
BiNCREMENT  psg  voltage 

BMAX.POWER'PQINT  located^ 
bno.  re-initialize  maximum  Power 
8 AND  max-power  VOLTAGE 
bredepine  voltage  Increment 

BmAX-POWER-POINT  NOT  POpNO 

BYES^  set  MAXipPOWEM  voltage 
BSET  MAX. power  CURRENT 


00  7RS  L>). MFINAL 

CALL  SLUPiSI ILI fVSHIFT.POOT.ADI (I • 2 I , AO I | t , I | , NaO 1 , 1 ) 
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7<+5 


7S0 


7SS 


V2+L)  • V2(L|  - US*  • SIIL)  - VSHIFT 
L • I 

CALL  SLUP(0.0,S*SCC,FD0T,V2,XI2,Hr INAL,  I I 
V2(  I I ■ o.n 
Xl2l  1 I ■ SASCC 
00  7S0  l■2,PF(NAL 
IP| V2( I ) .LCtO.O)  GO  TO  7S0 
L • L ♦ 1 
V2ILI  ■ V2(  1 ) 

XI2IL)  > XI2III 

continue 
hFinaL  • L 
L ■ L ♦ I 
DO  755  I"L,NPSG 
V2( I I - 0.0 
Xl2i I I ■ 0.0 


aRCOEEINE  INITIAL  S/A  I.V  POINT 

acLiNiNATC  negative  voltages 


BSET  SIZE  OF  S/A  I-V  ARRATS 

BZERO'EILL  REHAINDER  of  S/a 
B I-V  ARRAYS 


760  CALL  SLIVC( V2(MFINaL-1 ( I 


7B0 

7V0 

795 

BOO 


VZsB  m ZV|2) 

SAOCV  ■ V2(MFINAL-1 I 
IF(VZSB.Ge.S*OCV)  60  TO  790 
IF ( ISH.GT.O I GO  TO  BoO 
00  795  L"l,MFINAL  Bnq 

Si (LI  ■ XI2(LI 
SV(L|  ■ V2(L1 
NAPSG  ■ NFINaL 
60  TO  SOOO 


BCONPUTE  SMUNT-LIMITE*  i-v  arrays 

BSHUNT  LIHITER  turn-on  V0LTA6E 
BPS6  OPEN  CIRCUIT  VOLTAGE 

BSELECT  shunt  LIHITER  TYPE 
SHUNT  LIHITER  PRESENT... 

BSET  PS6  CURRENT  ARRAY 
BSET  PS6  VOLTAGE  ARRAY 
bset  size  of  psg  i-v  arrays 

BRETURN 


N ■ 1 

IF( IPSG.Ne.O  I N • NESP 
CALL  PSGIV(S8200> 

60  TO  5000 


tiao  qot  ■ n.o 

HSAPNR  ■ Q.O 
1200  si  ( i I - 0.0 
svi n - 0.0 

V2|  1 I - 0,0 
X 12  I 1 I - 0.0 
00  1210  La2,NPSG 
SI ILI  - 0.0 
XI2ILI  > 0.0 
SViLI  • SV(L-| I 
1210  V2ILI  ■ SVILI 
MFiNAL  • NPSG 
NAPSG  ■ NPSG 
0,0 
0.0 

SVINPSGI 


BZeNER  OIOOE  or  shunt  LIHITER... 

BSELECT  PONER  SOURCE  GROUP  TYPE 
BCOHPUTE  PSG  I-V  arrays 
BRETURN 

bsolar  occultation 

BSET  HAX.POMER'POINT  ■ ZERO 

BCOHPUTE  PSG  I-V  ARRAYS 


1220 


Z1  I I ) 

zvm 
VZINC 
DO  1220  I>2.NSL 
ZKII  • 

zv(  n ■ 

ZViNSLI 


♦ VSaINC 


/ INSL  - i I 


Bset  size  of  s/a  i-v  arrays 
Bset  size  or  psg  i-v  arrays 
BFILL  shunt  LIHITER  I-V  ARRAYS 


0,0 

ZVI I-l  I ♦ VZlNC 
> SVCNPSGl 


SOOO  RETURN 


B-6o 


u u u u 
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•••••eRROR  MESSACe  EXITS 
•000  WRITE (NWRT.SOIO) 

•010  FORR»Ti*0««»  invalid  CLOUD  COVER  TYRE  SPCCIEIEO*) 

STOP 

• 100  WRITEINWRT.SI 10  I 

•110  P0RNAT('0««*  NAX.POWeR. POINT  CALCULATION  PAILEO  TO  C0NVER6C* I 
WRITEtNWRT.PSG) 

WRITEINWRT.PSGOUT) 

STOP 

•200  wRITEINWRT.82iOI 

• 210  fopnati'o***  solar  Array  i.v  dimensions  exceeded*  I 

WRiTEINWRTfPSGI 
WRITEINWRT.PSGOUT  I 
STOP 


internal  subroutines 


• 10 


• 30 

• NO 


•so 


• AO 


• 70 


SUBROUTINE  PSGIV(t) 

J ■ NPSG  - I 

00  SRO  L*! . J 

1 • L 

IF(V2ILI.&E*VZSBI  go  TO  SSO 
SlILI  ■ XI2(L) 

SVILI  • V2<L) 

return  I 


BFOR  PSfi  VOLTAGE. LT.VZSB. 
B COMPUTE  ^SG  l-V  ARRAYS 


BPSGC  range  exceeded 


SVdl  > VZSB  SFOR  RSG  VOLT  AGE . 6E . VZSB . 

DO  870  L-l.J  B COMPUTE  PSG  I«V  ARRAYS 

call  SLUPiSVil ) .SllL) ,FD0T.V2,X12,MF1NAL-I , 1 I 
call  SLUPiSV il I ,XZI .FDOT.ZV.Z I ,NSL, 1 I 
XZl  - N • XZl  BREVISE  SHUNT 

SI(Lt  ■ SUL)  . XZl  BREVISE  SOLAR 

IFlSKLi.GT.O.O)  GO  TO  S70 

NAPSG  ■ L SSET  SIZE  OF  PSG  I-V  ARRAYS 

GO  TO  880 

SV|L*|)  - SViLI  * AHINI  (VSAlNC,ZV(*tl-ZV(3l  t 

RETURN  I BPSGC  RANGE  EXCEEDED 


limiter  Current 
ARRAY  current 


••0  CALL  SLUP|0.0,VZCR,F00T,Sl,SV,N*PSG,n 


NAPSG  ■ NAPSG 
SV|NAPSG-i ) 

SI INAPSG.I I 
SVINAPSGI  ■ 
SIINAPSG)  ■ 
RETURN 

end 


1 

• VZCR 

> 0.0 

V2<HEINAl  I 

0.0 


BCOMPLETE  ^S6  I>V  ARRAYS 


i B-61 

I 

f 

t 

I 


f 

\ 
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f 


PA-SLIVC 


SUBROUTINC.  SCiVCiySAMX) 

C COMPUTES  SHUNT  LIMItCH  CURHENT-VOLTAOE 

c cmanacteristic  curvc  *rr*tS  (Zi.rv) 

C ENTRT  ZENER 

c Initializes  zeher  diode  reference  current  and  voltase 
c 

INCLUDE  ALLCMNiLIST 
INCLUDE  COHONiLIST 
INCLUDE  PACHN.LIST 

REAL  TCZI  (NtcZIV)  , XZKNSDi  XZVINSLI 


C 


C 

C 


C 

C 

C 


c 


10  I - ISN  « I 
DO  JO  U«1,NSL 
ZIUl  ■ 0,0 
30  ZV|J|  • 0.0 
ZV(2t  ■ VSAHX 
60  TO  I700»N70IS50^400>  . I 


BSET  shunt  LIHITER  type  PLA6 

eiNiTiALiZE  shunt  limitch  current 

aiNITlALiZE  shunt  LIHlTfR  VOLTACc 
BSELECT  SHUNT  LIHITER  TYPE 


entry  ZENER 
ioo  I ■ ISH  ♦ J 

120  iPlI.LT.l  .OR.  I.CTtMl  60  TO 
60  TO  (7S0.N00i530^7ao> . I 


8SET  SHUNT  lIhITeR  TTPE.PLA6 
SOO  BINVALIO  shunt  LIHITER  TYPE? 

BSElCCT  ZENER  DIODE  TYPf 


••••ordinary  ZENER  DIODE 

NOO  Tl  ■ ITZBR  • JOtOI  / ioO.O  BINITIAL  LOAD  LINE  ANALYSIS... 

TCZ  • 0.0 
VZSB  ■ 1.0E30 

00  NZO  BCOHPUTE  REPERENCE  ZENER  OlOOE 

ZRPV  • VZBR  • (t.O  • Tl  • rOZ)  B BREAKDOWN  V0LTA6E  6 TEMPERATURE 
call  SLOP|ZRrv,TCZ;roOT,ZTCOEFU , I 1 .ZTCOEF ( 1 ,21  .NZTC.i  ) 
|P|ABS|ZRFV|.ABS|VZSBt.LT.O.U  60  TO  780  BRePERENCE  POuND? 

120  VZSB  ■ ZRPV 

60  TO  B20  BNO.  failed  TO  C0NVER6C 

R70  vZsB  ■ NZS  • ZRPV  • il.O  f TCZ  • (TSAC  • )OtOI  / 100.01  BTES. 

H80  call  TB2SET1Z01MPV;nZ0V,2, 1 i ZO IMPT , NZOT , 2 , I , ZO IMP , NZO IMP , | ERR » 

N?0  ZV(2|  - VZSB  BSET  ZENER  DIODE  l-V  ARRAYS 

Zll3)  • 100.0 

ZV(3I  ■ VZSB  • NZS  • ZIIJ)  * TB26ET I ZRP V , TS AC  I 

60  TO  700  BSCALE  AND  PILL  l-V  ARRAYS 


C 

c^^^^^tehperature'Cohpensateo  Zener  diode 

c 

530  call  SLUP|H0ZHX,ZRPl|P00T;cURZ(l,li,CURZ(|,2),NCURZ,|| 

5N0  ZRPV  > HOER  • HDZHX  / ZRPI  BCOHPUTE  REFERENCE  BREAKDOWN  |,V 

RETURN 
C 

550  CALL  TB2SET(TCZV,NTCZV,2, 1 ,TCZT,NTCZT,Z,1 ;tCZIV,NTCZIV,1eRR) 

DO  540  Uai>TCZV 

540  TCZIIJ)  ■ TB26ETITCZVU)  (TSRCI 

570  CALL  SLUP(Q.O,RATVB.POOT,TC<IiTCZV,NTCZV,n 

SBO  RTVINC  > 1.05  - RATVB  / (NSL.2)  BSET  VOLTABe.RATIO  INCREMENT 
ZV|2)  > RATVB 
DO  S?0  Uaj.NSL 


B-62 


onr»  r>  rir*r*  ono 


ZV|J|  ■ ZV(J«|)  * RTVtNC  BINCRCNENT  VOLTACC  RATIO 

590  call  SLUR(ZV|j),ZnJ|,FOOT^TCZV,TCZI.NTCZV.n 
DO  S9S  J-UNsl 

ZI(J)  ■ ZrFI  • ZIlJ)  BSCT  ZENER  0|0DE  CURRENT  ARRAT 

595  ZV|J)  • NZS  • ZRFV  • ZVIJI  BSET  ZENCR  OlOOE  VOLTABC  ARRAT 

60  TO  700  BSCALE  AND  FILL  1-9  ARRATS 

•••••active  shunt  lihitcr 

AOO  VSNTO  ■ VSHTOR  • ({tO  * CSH  • (TSAC  - TSHREF)  / |00*0) 

690  CALL  SLUF(T5AC,ZSH,F00T.ZSHTAB(|,U,ZSHTAB(li;ltNZSN,|| 

650  ZV(2I  ■ VSNTO  BSCT  SHUNT  LINITER  I-V  aRRATS 

ZIOI  ■ I00«0 

ZV(J|  ■ VSHTO  • ZSH  • ZtIJI 

•••••scale  I'V  aRravs  to  havihun  Solar  arrat  voltasc 

700  lF(ZV|2ltLT*VSAHX|  6o  TO  7J0  BtF  TURN.ON  VOLTASCtSf .MAX INUN 

ZV|2I  ■ VSAHX  B SOLAR  ARRAY  VOLTASC**^ 

DO  710  1«3>SL 
Zl I I > • 0^0 

710  ZV(  I I ■ ZVI l-l  ) • 0>00l 

60  TO  780  BRETURN 

730  VZINC  ■ (VSAmX  • ZV)2>I  / I'^SL  • 31  B|F  TURN-ON  VOLTABC tLT (NAX 1- 
N > NSL-2  B HUH  SOLAR  ARRAY  VOLTABC**. 

NSH  ■ 3 

|F( ISH.CQ.2I  NSH  • NSL 
XZVI2)  > ZVI2) 

DO  790  I*3.N 

XZV(  I I • XZVl I-l  ) * VZINC 
XZI  ( I ) • 0.0 

790  call  SLUFi XZVI I ) ,XZI I I I ,F00T,ZV,ZI .NSH, 1) 

XZV(NSL-1 I ■ VSAHX 
XZlINSL-l 1 • 0.0 

iFdSH.NC.O)  CALL  SLuR  I XZ  V I NSL- 1 I , XZ  | ( NSL.  I I ,FDOT  , Z V , Z I ,NSH  , | ( 
XZVINSL)  ■ Id  • VSAHX 
XZI INSLI  ■ 0.0 

call  SLUFixZviNSL) .XZIINSL) >rOOT,ZV,ZI,NSH,l  I 
DO  750  t«3.NSL 

zi(i)  - xziin 

750  zv( n ■ XZVl n 
780  return 

•••••error  HCSSA6E  EXITS 
800  MR|TC(NMRT.>I0I 

810  FORHATI'O^^*  invalid  SHUNT  t-IHITCR  TTRC  SRCC|FICO*| 

STOP 

820  mR|TC|NMRT.B30I 

830  FORHATI^O^**  RCFCRCNCC  ZCNC**  DIODE  8RCAK00MN  VOLTABC  NOT  FOUNO^ ) 
STOP 


non  o n non 
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PA-SUMARY 


SUBROUTINE  SUMARV 

RE»3S  PER-3^H»'ICE  A4A.YS1S  3UTPU1  D»T»  FR3R  ‘S’lLE* 
AND  PRODUCES  TABULAR  PRINTOUT  AND  SUNHARY  PLOTS 


I^CmOi  C313N..IST 
INCLUDE  SUMCMNtLiST 
INTE3ER  R3CYT 
DATA  A/O.O/t  H/O.IA/ 
real  3AYSSTIAI 

REAL  TSAFIAIf  VSA(A)*  XISA(A)t  XIZIA> 
real  aCURIAIt  C3C«it  TTES3l«)t  vatTllt 


lYEAR  : 3393  iJUlLS  EXS-OF-FILi  RECORD 

CALL  NTRAN ISEILEtl>ISIZE>IYEARtISTATf?2)  BURITE  ENO-OF-FILE  MARK 
I-l ISTAT.3T.3I  33  T3  53  AlAD  I/O  STATUS?  YES... 

URITEINURTilOl  awRITE  ERROR  MESSAGE 

10  FORMAT! •0»»*STRAX  MRITE  ERROR.  EN3-0F--ILE  RECORD*! 

STOP  aTERMINATE  THE  PROGRAM 


50  OAYSSTIll  = 0.0 

DAYSSTt?!  : ^RTIUI 
DO  60  1=1.2 
TSAFIIJ  : »RT2IZ) 
VSAII)  : PRTZIA! 
XISAI  I»  z >RT2«  5) 
XIZIII  = PRTZIIOI 
TTES3I II  : "RTSI Zl 
BCURlIi  = PRT3I6I 
V3ATIII  I >RT3fTI 
60  CBIII  = PRT3I9I 


aSET  INITIAL  TEST  DAT 
aSET  fINAL  TEST  DAY 
aiNITIALiZE  MIN. /MAX.  VALUES  FORI 
a SOLAR  ARRAY  TEN>ERAruRE 
a SOLAR  ARRAY  OPERATING  VOLTAGE 
a SOLAR  ARRAY  OPERATING  CJRRENT 
a SHUNT  LIMITER  OPERATING  CURRENT 
a BATTERY  TEMPERATURE 
a BATTERY  OPERATING  CURRENT 
a BATTERY  OPERATING  VOLTASE 
8 BATTERY  CAPACITY 


PRINT  UNREGULATED  BUS  SUMMARY  TABLE 


t 


100  NT  = 1 

CA.L  INIT. 

110  CALL  READPAISZOOI 

r-!LNCNT..E.5m  GO  TO  150 
PGCNT  = PCCNT  ♦ 1 
URITEI HURT. 120)  NT.*GCNT 
120  FORMAT! »1*.T39. ‘NAVIGATION  AI 
. Till. ‘‘A* .J2. ‘-SAGE  ’.JA 


aSET  TABLE  NUMBER  = 1 
aiNITIALIZE  IN»UT/0JT»UT 
BREAD  PERFORMANCE  ANALYSIS  DATA 
aVEH  >AGE? 

BYES.  INCREMENT  PAGE  COUNTER 
a>RINT  TITLE  ANO  READERS 
POWER  SYSTEM  PERFORMANCE  ANALYSIS* 


. 


. IX. TAG. ‘TABLE  i:  UNREGULATED  BUS  SUMMARY*////) 

WRITi! NWRT. 130) 

130  FORMATIlX.TZa. ‘POWER*/. 

2 1X.T19.*TINE  SYSTEM  POWER  SOURCE  3R0U*  ENERGY  *. 

2 ‘STORAGE  GROUP  POWER  CONDITIONING*/. 

3 * 3AT-:  OF  TEST  SINCE  OPER  A T IN3  * . T 7 3.  * ANO  *. 

3 ‘DISTRIBUTION  GROUP*/. 

A lXfri9t*START  VOLT AGE* • AX  * 3 I ‘POWER  CURRENT *t 5X )/• 

5 * year:oat:m3ur  ioatsi  ivo.tsi  *. 

5 3I*IWATTS)  IAMPERES)  *)/. 

6 IX. 99!*-*)) 

LNCNT  = 12  aiNITIALiZE  LINE  COUNTER 

ISO  WRITEINWRT.iSOI  IT E AR. lOAY .T IRE . I > RTl I Cl • 1 = 1 1 •)  BHRITE  DATA 

160  F0RMAT!lX»IAt*:*iI3**: * • F5 .2 .2 iZX • F7.2 I *6 12I.E9 .A ) ) 

LNCNT  : LNCNT  * 1 IINCRENENT  LINE  COUNTER 


J 


B-6U 


o u u 


TS«^I  I I 
TS«FI?I 
VSkI  I I 
VSA(?I 
XISAI  II 
XISAIZI 
XlZt  1) 
XIZI2) 
TTiSSI  I 
TTESGI2 
BCURIl I 
3:JRI 21 
VBATI 1 1 
V3«T( 21 
CBil)  = 
C3I21  = 
GO  TO  1 


: «iINllTS«Fll 
= *M*X1(TSAF(2 
: *1 IXttVSAtll t 
r ANAXllVSAI2)t 
= AilNlIXlSAIl 
= AHAX1IXISA(2 
= A^I^IIXIZIII t 
= AHAXllXI2l2lt 
I : AlIXtITTESS 
I = AHAXIITTESG 
= AMINIIBCUR  II 
= A*1AXII9:URI2 
= AHINIIVBATII 
: A<IAX1IV3ATI2 
AHINlICBIlltPR 
AHAXIIC3I2I»>R 
10 


DETCRHINF. .. 
It>3r2l2l)  ailNIlUN 
I•PRT2I2II 
»RT2I Al I 
PRT2I«)I 
I t>3T2ISI  I 
)•PRT2  ISI I 
»RT2I 131  I 
PRT2(10I I 
I1)»MT3I2)) 
l2ltPRT3l2)  I 
l>PRT3ien 
I #P3T3I 61  I 
I •PRT3 (711 
I .*3T3( 7)  I 
T3I9I> 

T3(9I  I 


aUAXlHUH 

aiZNZ*IUN 

aMAXZMUN 

ailNIlUN 

aHAXlHUH 

ailNIiUM 

aHAXINUM 


SFA 

S/A 

S/A 

S/A 

S/A 

S/A 

S/L 

S/L 


TENPERATJRE 
TCNPCRATURE 
0»ERATZN3  VOLTASC 
OPERATING  VOLTAGE 
0>ERATIN3  CUTRENT 
OPERATING  CURRENT 
0>CRATZN3  CURRENT 
OPERATING  CURRENT 
ailNIRUN  BATTERT  TCN*ERATJRE 
aHAXIHUH  BATTERY  TENPERATURE 
aMIN.  BATT  OPERATING  CURRENT 
aHAX.  BATT  O’ERATZNG 
aHIN.  BATT  OPERATING 
aUAX.  BATT  OPERATING 
aNINlNUM  BATTERY  CAPACITY 
aiAXlRUN  9ATTERY  CAPACITY 
aCET  NEXT  RECORD 


CURRENT 

VOLTAGE 

VOLTAGE 


•PRINT  POWER  SOURCE  GROUP  SUMMARY  TABLE 


200 


C»»L 

CALL 

CA.L 

CALL 

CA.L 

CALL 


CALL 


NT  = 2 
L : 1 

CALL  INITL 

r*( X.N..£.3.3)  33  T3  205 
CALL  PSCALEIDAYSSTtXLNfZtll 
PS:A.:iTSA?.Y.Vt2tU 
PSCALEIVSAiYLNt2tll 
0S:A.:(XISA>V.Yi2tli 
PSCALEIXlZf YLN»?tl) 

P.3T(  lO.Ota.nt-3) 

AXISIO.OtO.Ot 'DAYS  SINCE 
3AYSSTI 3) tlAYSSTI  HI  I 
AXIS(O.OtO.Ot ’SOLAR  ARRAY 
TSAFI3)fTSAF|l»)) 

AXIS( -l.OtO.Ot ’SOLAR  ARRAY 
VSAI  3)  • VSAI  <ti  I 
AXIS! -2.0t0.0t’S0LAR 
XISA(3ltXISA(Vn 
AXISI  -3.0»r).0>’SHUNT 
XIZI3ltXlZ(Rn 

STHB0LIXLN-3.3tYLN'»0.6>H«0i  At-l) 
STM33.(XLY-3.3tYLV*0.atMt’=  SILAR 
At31l 

SY<l93.IXLY-3.3tYLY*0.3>'(*l«Afl) 
SYH60LIXLN-3.0tVLN«0.3fHt ’=  SOLAR 
STM90.(XLV-3.3tY!.VtHf3»A<-l) 
SYH60L(XLN-3.0*VLNiH» ’=  SOLAR  ARRAY 
STM93. (XLY-3.3« YuV-0. ItMtlOf A«-l) 
SYMBOL IXLN-3. Of YLN-0.3*Hi ’=  SHUNT 
At29l 


aSET  TABLE  NUMBER  = 2 
aiNITIALlZS  P^OT  LIVE  TYPE  = NONE 
alNITIALiZE  INPUT/OUTPUT 
asUMMARY  ’LOTS  0ESIRE97  YES... 
aSET  TEST  DAY  PLOT  SCALE 
aSET  S/A  TENPERATURE  SCALE 
aSET  S/A  OPERATING  VOLTAGE 
aSET  S/A  0OERATIN3  CURRENT 
aSET  S/L  OPERATING  CURRENT 
a£STA9LISH  NEW  PLOT  ORIGIN 
START  OF  TEST’t-2VtXLN>0.0* 


SCALE 

SCALE 

SCALE 


TEMPERATURE ’*23* YLN *90.0* 


CALL 


OPERATING  VOLTAGE* t29tYLNt90.0* 


CALL 


ARRAY  OPERATING  CURRENT • t29t TLNt 90 .0* 


CALL 


LIMITER  OPERATING  CURRENT* t3I*TLN«90 >0* 


CALL 

call 


ARRAY  temperature  CURVE*# 


CA._ 

CALL 

call 

CALL 

call 

CALL 


ARRAY  VOLTAGE  CURVE**At27l 


CURRENT  CURVE**At27l 


LIMITER  CURRENT  CURVE*# 


29  9 


call  REA0*AU2iai 
OATSSTIll  = PRr2(ll 
T5AFI1I  : *RT2I2) 
VSAIl)  = PRT2IRI 
XISAIlt  : XRT2I5I 


aREAO 

GNOVE 


•ERFORNARCE  ANALYSIS  DATA 
INPUT  DATA  TO  PLOT  ANRAVS 


! i 


c 


XIZCH  = PRT2J10) 
C»LL  IMIT. 


a^E-ISITIA.IZE  IN>UT/3UTPJT 


C 


c 

c 

c 


aZEAO  Pe7F0RN«i|CE  ANALySZS  0»T» 
aNEH  PAGET 

aVES.  INCAENENT  PAGE  COUMTEA 
aPRINT  TITLE  AND  HEADERS 
AID  POWER  SVSTEi  PERFORMANCE  ANALTSIS*f 

SOURCE  OROJ>  SUMHARY '/f//) 


INCI0ENT*tAX«18l***lt 

• »10  I •••  »»5Xt •••••••  SHUNT  LINITER  ••••*••/, 

SIXCE  GR3UP  SOLAR*t 
T80t*MAXIHUH  POUER*/t 

:XtT19> ’START  TEN>.  RADIATION  V3LTASE  CURRENT’^ 
SX.ZI ’POUER’fGX) r’HARGIN  VOLTAGE  CURRENT  POWER’/* 

’ YEAR:3AY;-I3UR  IOAYSI  IOEG.  n IWATTS/SI.Nt  IV3LTSI*t 
3X. ’I  AMPERES)  ’ t 3 ( ’ t WATTS ) ’ t AX ) t ’ I V OLTS I lANPERESI** 

SXt’IWATTS)’/* 

IXtlSlC’-’)) 

aiNITIALIZE  LIME  COUNTER 
lYEARtlOAYtTIHEt IPRTZf II*I=1*11I  aWRITE  DATA 
tI3*’:’**S.2t 2I2X*F7.2) •9IZXiE9.All 

aiNCRENENT  LINE  COUNTER 


210  CAi.L  RrA3<>A(l2Z3) 

IFILNCNT.LE.5AI  GO  TO  250 
PSCNT  : »3:mT  ♦ I 
WRITEINWRT.220I  NTiPGCNT 
220  F3RMATI ’I’. TI9t ’MAWI3ATI0M 
. TIIT.’PA’, J2*’-PAGE  ’ 

. IXtTAS* ’TA3. E 2:  >0WEI 

WRZTEINHRTt230) 

230  F0RMATIlX.r29t’»3WER’/* 

2 lXtn9*’TIME  SOURCE 

2 * SOLAR  ARRAY 

3 ’ 3ATi  OF  TEST 
3 
A 
A 
5 
5 
5 

e 

tMCNT  : 12 
250  WRITEINWRT t2e0 ) 

2G0  FORMAT! 1X*IA.  ’:’ 

LNCNT  = LNCNT  * 1 

DAYSSTI2)  = PRT2I1I 
TSAFI2)  : >RT2I2) 

VSA<2)  = PRT2IA) 
xrSAlZ)  : *RT2I5) 

XIZ!2»  = PRT2I1P) 

I^l X.M..E.O. 3 ) 33  T3  2&5 
CALL  LINEIOAYSSTtTSAFtZ.l.LtOI 
call  LIM£I  3AYSST*VSA* 2*ltL* II 
CALL  LINEI0AVSST*XISAt2tltLt3) 
CALL  LINE! 3AYSSTfXlZ*2tltLtl3) 
265  OAYSSTIl)  : 0AY$STI2) 

TSAF|l)  : TSAFC2I 
VSAIll  r VSAI2I 
XISAIll  : XISAI2I 
XIZIll  = XIZI2I 
L : 1 
GO  TO  210 

270  1^1 XULT.^E. 0.01  33  T3  300 
CALL  PLOT! XLN*10.0t0.0*-3l 


aNOVE  INPUT  DATA  TO  PLOT  ARRAYS 


aSUHHARY  ’LOTS  DESIRE3T  YES... 
aPLOT  ARRAY  PAIRS  VS.  DAY  PAIR 


aSTORE  LAST  INPUT  DATA  POINTS 


aREOE’INE  »LOT  LIME  TY’E 

aGET  NEXT  RECORD 

aSUNNARY  ’LOTS  DESIRED? 

aiES.  ESTABLISH  NEW  PLOT  ORIGIN 


PRINT  ENERGY  STORAGE  UNIT  SUHHARY  TABLES 


300  DATSSTIl)  = 0.0 

IF| K.M..E.3.3)  33  T3  303 
CALL  PSCALEIOAVSSTtXLNtZtll 
call  PSCAL EITTES3*VLM*2*1) 
CALL  PSCALEIBCUR*YLN»2*1I 
call  PS:A.EIV3AT*T.Nt2.1) 
CALL  PSCALEICBtYLNtZtll 


BRE-SET  INITIAL  TEST  DAY 
aSUNNARY  ’LOTS  0ESZRE9T  YES... 
SSET  TEST  OAT  PLOT  SCALE 
aSET  BATTERT  TENPEBATiRE  SCALE 
aSET  BATTERT  CORRCHT  SCALE 
BSET  BATTERT  VOLTRBE  SCALE 
aSET  BATTERT  CAPACITY  SCAU 


50i*0-27 


303  NT  = 3 aSCT  TABLC  NUNBCR  = 3 

L : 3 atNZrXALXZE  P-OT  LITE  T»PE  = BDNE 

CTll  XTXr.  aXNZTZALIZE  IM»UT/OUT»llI 

IFIXLN.LE.0.0)  60  TO  305  BSUNNART  PLOTS  OESZREOT  YES.*. 

CALL  AXXSI 3.3ta.0t*0*YS  SXTCE  STATT  OF  T EST • >- 2« iX LNi 0. Of 
. DAYSSTI3ltOAYSSTUII 

Ct.L  AXISI  3.3f0.nt*aATTEiTV  TE  NPER  AT  URE*  1 1 9t  Y LNt  BO.Of 
, TTESCI3) tTTESGJA l» 

Ct^L  AKXSI -l.OtO.Ot ’BATTETT  3PERATXN6  CURRETT *f ZSf Y LNt SO.Ot 
. BCURI3)fBCUR(«l I 

CA.l  AXI5I ->.Ota.Ot*aATTERr  3>ERATXN6  V0LTA3E*fZ5tTLTt30fOf 
. VBATI3)fVBATIAi I 

CALL  AXISI -3. OtO. Of 'BATTERY  CAPACITY • 1 16t Y LNt 90 .Ot CB 13  It CB l«  1 1 
call  SVi33.tXLY'3.3fYLY*0fifRflfAfl) 

CALL  SVNBOLIXLN-a.OfYLNfO.BtHf •=  BATTERY  TENPERATURE  CURVE'tAtZTI 
CAlL  SYT33.I  XLY-3. 3f  VLN*0.3f  RfAf  Afll 

CALL  SVHB0L(XLN-3.0fVLN«0.3tHf •=  BATTERY  CURRENT  CURVE*tAtZ3l 
call  3X133. «XLY-3. 3fTLNtHf if Af-ll 

CALL  SYHB0L«XLN-3.Pf YLNf Hf  •=  BATTERY  VOLTAGE  CURVE'tA#23> 

CALL  SY133.(XLY-3.3fYLY-0.3fHf2AfAf-l) 

CALL  SYMB0HXLN-3.0fYLN-0.3fHf  •=  BATTERY  CAPACITY  CURVE*tAf2«l 


CALL  READPAISIOOl 
OAYSSTIll  : f>RT3lll 
TTESGCll  = PRT3Y2I 
aCURCll  : >RT3I5» 
VBATIl)  = PRT3I7) 
C3IH  : PTT3I9) 

CALL  INITL 


BREAD  PERFORMANCE  ANALYSIS  DATA 
BIOVE  INPUT  DATA  TO  PLOT  ARRAYS 


BRE-INITIALIZE  INPUT/OUTPUT 


310  CALL  RCADPAISAOOl 
r-<LYCYT..r.5A»  33 
PGCNT  = P6CNT  ♦ 1 


BREAD  PERFORMANCE  ANALYSIS  DATA 
BYEU  >A6E? 

BYES.  INCREMENT  PA6E  COUNTER 


URXTidBRTf  3201  Y T f > 3CNT f YTf  NB ATT  BPRINT  TITLE  ANO  READERS 
320  FORMATI •l'fT39f 'NAVIGATION  AID  POWER  SYSTEM  PERFORMANCE  ANALYSIS'f 
. TllTf •*A' f J2f •-•AGE 

. lXfT36f 'TABLE  'fJZf'l  ENERGY  STORAGE  UNIT  SUHNARYt  't 

. I2f'  3ATTERXES'////) 

URITEINURTf330> 

330  FoRRATIlXf T29f 'EYETSY'/f 


IXfTlBf'TIME  STORAGE 
' 3ATTERY  'fSOI'f'l/f 

• DATE  OF  TEST  SINCE 

lXfT13f 'START  TEM». 
SXf'CURRENT  VOLTAGE 
SXf'TEYP. '/t 

• year:dav:hour  ioatsi 


ENERGY  STORAGE  UNIT • t 5X 1 30 1 •• * 1 1 


GROUP*  fn25f 'FREEZING' /t 


5 AXf'IWATTSI 

5 ZXf'GRAVITY 

6 lXfl3H'-'n 
LNCNT  = 12 

3S0  NRITElNWRTf  3B0I 


I AiPERESi 
IDEG.  Fl'/f 


POWER 
STATE  OF 

(0E6.  FI 
I VOLTSI 


VOLTAGE 

CAPACITY 

IWATTSi 

CWARBE 


P3WER*f 
SPECIF IC'f 

IVOLTSI't 
I ARP-HOURSI't 


aiNITIALIZE  LINE  COUNTER 


3S0  WRITElNWRTf 3*01  IT E AR t lOAT tT INEt I >RT 31  El 1 1=1  til  I IWRITE  DATA 

SBO  FORNATIlXfZRf 'I'fllf •X'fFS.ZfZIZXfFT.ZlfBtZXfEB.BI I 

LNCNT  : LNCNT  • 1 BINCRENENT  LINE  COUNTER 


BATSSTIZI  : PRT3I1I 
TTCSBI2I  = PRTSI2I 


BROVE  INPUT  DATA  TO  PLOT  ARRATS 


50U0-2T 


I 

r 

I 


i 


f 


i 


i 

I 


c 

c 

c 

c 


c 

c 


c 


BCURI2I  : *RT3(ii 
VBATIZ)  : PRT3I7I 
C3I2I  = *3T3I9I 
inxLN.LC.O.OI  80  TO  365 
call  LINEI  3ArSST*TTES6t2*lt  Ltli 
CALL  LiNCf OAVSSTfBCURtZfltLtAI 
call  lINEI TATSSTtVSATtZtlt.tS) 
CALL  LZNtlOArSSTtCBt2tltLt2A> 

365  OATSSn  II  : 0AVSSTI2I 
TTCSSIll  = TTCSGiZI 
BCURIll  = BCURI2I 
V3ATI1I  : VBATI2) 

CBdl  = CB(2I 
L : 1 
60  TO  310 

ABO  I- I XRLT.lE.3.01  33  T3  500 
CALL  PL0TIXLN«10.O>O.0t-3l 

500  CORTINUE 

RETURN 


aSUHHART  PLOTS  DESIRED?  TES... 
a>LOT  ARRAY  PAIRS  VS.  OAT  PAIR 


aSTORi  LAST  IN*UT  DATA  POINTS 


aiEOE-INE  >L0T  LINE  TT»E 
aCET  NEXT  RECORD 
aSUNNART  *LOTS  DESIRES? 
aVES. 


INTERNAL  SUBR3JTINSS 


SUBROUTINE  INIT. 

LNCNT  = 1000  aiNITlALIZE  LINE  COUNTER 

P3CNT  = 0 aiNITIALTZE  PA6E  COUNTER 

CALL  NTRAN  (SFILEtlO.221  aREWINO  PERFORMANCE  ANALYSIS  FILE 

RETURN 


SUBROUTINE  REAOPAIt) 

call  NTRANtS-I.E.2.ISIZEtITEAR.ISTATf22l  BREAD  A RECORD 
IFIISTAT.EQ.-ZI  RETURN  1 BEND  OF  FILE? 

I-l ITEAR.E3.9999I  RETURN  1 

IFdSTAT.GE.ll  RETURN  BNO . BAO  I/O  STATUS? 

URZTEI  NMRTtBOOI  lYEAR.IDAT.TINE  BYES. 

BOO  FORMATI *0***NTRAN  READ  ERROR  AT  RECORD  AFTER  DATE  = *. 

. IA.*:*.I3.»:».F5.2) 

STOP 

ENO 


r>  r>  o r>  o n 
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i 

READTAPE 

SUBROUTINE  ROTAPE 

OBTAINS  AMBIENT  TEMPERATURE*  SOLAR  INSOLATION*  AND  WIND 
VELOCITY  FROM  NOAA  OR  STATISTICAL  WEATHER  TAPE  INPUT 
ENTRY  TMNMX 

OBTAINS  minimum  AND  MAXIMUM  AMBIENT  TEMPERATURES  OVER  A 
ONE-YEAR  period  OF  TIME  DEFINED  BY  TWE  VALUE  OF  ’IT ARE* 

INCLUDE  ALLCMNrLIST 
INCLUDE  COMOm*LIST 

commom/stats/  zalpha*?prcmt 

INTEGER  LOCU)/1000*-1000*?000*-Pnno/ 

INTEGER  SECEnD*  SECN0W»  SECNXT*  SecOmf*  BECToP 
LOGICAL  FIRST/. TRUE./*  STATAP*  SUNpi?,  SUMSEt 
REAL  0UTBUF»?8*3) 

REAL  nB(24)*  S0LAR(24).  WV(24),  X(R4)*  Xl(26).  Y1(5A) 


y/i.o>2.o*3.n*4.o>s 

14.0*15.0*16.0*17 

?TARLE<50*2)/0.5000 

0.6554 

0.75B0 

0.B413 

0.B052 

0.0452 

0.0713 

0.0938 

1.0000 

' 0.00.0 
0.40.0 
0.70.0 
1.00.1 

1.30.1 

1.60.1 

1.00.2 

2.60.2 


4.00.1000.0/ 


EO'ilVALENCE 

EOUlVALENCE 


<0UTPUF(2.1) 

(0UTRUF(5.2» 


0.6. 0*7. 0,8. 0.0, 0.10. 0*1 1.0, 12.0. 1 3.0, 
0. 18.0. 19,0*20.0,21,0,22,0.23.0*24.0/ 
0. 5398  * 0. 5703  * 0.508"*,  0.61  79. 0.6'»6  A, 
0,6736.0.6916.0.7088.0.7258.0.7429, 
0.7734.0,7801 .0.8023.0.8150,0.8980, 
0,8531  *0.8643  *0.8740, 0,8049.0.89411, 

0, 01 15, 0.0102.0, 0265.  o.OS'P,  0.9^014, 

0 . 9505  * o . 05*;4 . 0 , O590,  o . 0^4 1 , 0 , 967a  . 
0.9773*0.0821,0.0261 . 0 . OftO^, 0 . 9oi a , 

0 . 9960  * 0.0970 . 0 . 007 A . 0 .9qA7 , 0.9090 . 
1.0000* 

10*0.20*0,25,0.30.0.35, 

45.0.50*0.58,0,60.0,65. 

75 *0.80 *0,85.0,00.0. os. 

05* 1.10.1.18,1.20,1.28, 

35.1.40*1.48,1.80,1.85, 

65. 1 ,70*  1 .7*^*  1 .80. 1 ,25. 
00.2.10*2.20,2.70,2.40* 

65*2, 75  *2,86.3,00.3,60. 


THEAD2).  (0"TRUE(5.i ) ,nP(1  I) 
WV(1)1,  <riUTBUE(6.3)  .SOLAPM  ) ) 


IE(DATEM.LE.O.O)  FIRST  = .TRUE. 
IE( .not. FIRST)  GO  TO  30 
FIRST  = .false. 

CALL  NTRAN(MFrGE* 10,22) 

SECTOR  = 0 
OLDATE  = date 
IE( ITAPE.GE.O)  go  TO  TO 
STATAP  = .true. 

SFCENP  = 366 
SFCNOW  = 1 
SFCONE  = 1 
DAY  = 1.0 
lYR  = 0 
GO  TO  50 

10  STATAP  = .EaLSE. 

CALL  ETLCHK (t820*t800) 

lYR  = 1000  * iFiXdTAPE  / 1000) 

DAY  = ELOATdTAPE  - lYR) 


wspt  initial  tall  EI.ag, 
9tMITTAL  CALL  TO  RFArVTAdE’ 
9YES.  reset  tall  rl  AS 
'^REWIND  DATA  EjLE 

ijinittaltze  sector  niimaer 
9ST0RE  REGUESTED  DATE 
ostatisttcal  Data  etle2 

'3YFS.  SE7  STaT  PARA9ETFRS 


QNO.  set  mOAA  PARAMETERS 


5040-27  (Change  1) 


30 


50 

* 


GO  TO  50 

IF(DATP.Ne.OLOATE)  60  TO  50  QSAMF  OATF  A5  LA5T  Of QUEST? 

CALL  SLUP(TIMEH»QPT»FP0T»Vl»yi»26*n  DTES,  Grr  SOl*P  rwSOLATTO- 
CALL  SLUP(TIMEH»TTAMB*Fn0T»x*0n»24.1 ) 06ET  AMpTfMT  tcmpfraTiirf 
CALL  SLUP(TIMEH»W1N0»F00T»X,wV.24»1»  OGET  «r»'n  VFiPCTTr 

return 

OLOATF  = date  QNO.  STODF  RfouEStEH  OATF 

SECNXT  = IYR  ♦ IFIX(OATE)  OSFT  RECORD  POTNTfR 

IF(OATE.LT.DAY)  SECNXT  = SFCNXT  ♦ looo  OSFT  POinTR  TO  MxT  Yr^n 
CALL  P01NTR(S800»»fl20)  OREAD  NEXT  lMP|iT  RECOpO 

CALL  SLUP<T1MEH»TTAMB*FD0T*X*0B»24»1 ) OGET  AMPIcnT  TE»PrR»TiiPr 
CALL  SLUP(T1MEH.WIND*F00T*X»WV,24*1)  OGET  WIND  VFlOCTTY 


OVALTO  solar  TnSOLATTON  DATA’ 

0^4n.  SAVR  RErORO  P0T*'TFR 
OIU  STATTSTICAL  DATA  FTLF? 

ONO,  SCAN  SUORDUMDTNG  4 YFAPS  roo 
0 VAl.TD  COLAO  INSOI  ATION  DAT* 


55 


50 

65 

70 


lFtSOLARa2)  .GE.0.0)  60  To  70 
NXTSEC  = SECNXT 
IF(STATaP)  go  to  840 
00  60  T=l>4 

SECNXT  = NXTSEC  ♦ LOC ( I ) 

CALL  POINTR(«60»5P20) 

IF(S0L*RU2) ‘LT.O.O)  GO  TO  60 
RRTTE(NixRT*55)  NXTSECfSECNXT 

format ( •0***5OLAR  INSOLATTON  DaTA  NOT  AVaTLAHlf  FOr  prouESTFO  », 
, 'DATE  (MSt*)!  obtained  FRO*a  t,T5) 

60  To  65 

CONTINi  IE 

GO  To  840  ONO  VALID  INSOlATtOM  DATA  FOUND 

SECNXT  r NXTSEC  ORFSfT  RrCORn  ooifiTFo 

CALL  T26HRS  OHUILD  SOLAR  TnSOLATTON  TAPLFS 

CALL  SLuP(TIMEH.QDT.FnOT»Xl,Yl»26»l)  OGE^  SOI  Ap  ImSOI  ATION 


80 


IF(SECN0IK.LT*SECEN0)  go  to  80 
SECTOR  = 0 
SECNOW  = SECONE 
CALL  NTrAN(MErGE»10»2?) 
lYEAR  = 1000  • IFIXISFCnOW  / 
lOAY  = SECNOR  - lYEAR 
SECTOR  = SECTOR  ♦ 3 
SECNOW  = SECNOW  ♦ 1 
IF(1DAY.GE.366)  SFCNOW  5 TDAY  - 365  ♦ lOOO  ♦ 
RETURN 

ENTRY  TMNMX 


D'DATE*  RFYOmo  enq  of  year? 
tyrs.  re-tnitializf  sector  nhnreo 

IPRE-TNITIALI^F  REcOoo  NUMBER 

qrewtnd  oata  file 

1000)  OSFT  RFQliFSTEp  VEAo 
qsft  rfqiifsted  day 
^increment  Sector  nic'rer 
13 Increment  pointer 

(TYEAP  ♦ 1) 


100  CALL  NTRAN(MER6E»10»22)  ORFWTNO  DATA  FILF 

CCM  =1,0  QSET  cloud-cover  MODIFIER 

SECTOR  = 0 OINITIALITF  SFCTOp  NUM8EP 

IF(lTAPE.GE.O)  60  TO  110  OSTATISTTCAL  DATA  FILE? 

statap  = .true.  oyes.  SET  stat  parameters 

SECEND  : 366 
SECNOW  = 1 
SECNXT  = 1 
SECONE  = 1 

CALL  NTRAN(MER6E*2»84»0UTPUF»ISTAT»?2)  OREAo  1st  'STAT*  RCD 

IFIISTAT.LT.O)  go  to  820  SIHAO  I'O  STATUS?  mO... 

Z : AMAXKZALPHAiI.O-ZALPhA) 

CALL  SLUP<Z»ZA»F00T»ZTABLF(1»1) tZTAPLFIl.?) »5n,i ) 


r%  ^ n n n 
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IF(ZALPHA.GT.n.50)  ZA  = -ZA 
Z = AWAxI(ZP«CNT»1.0-7PrC'''T) 

CALL  SI  IIP  ( Z » ZP . FOOT . ZT AflL*’  < 1 » 1 ) » ZT Apl^  ( 1 . ? ) » 50 , i ) 
IFCZPPCnT.LT.O.SO)  ZO  = -ZP 

AL  = 1.0  - ZA**2.0  / (2.0  ♦ ( OuTHi IF ( 1 , 3 ) - l.o)) 

BL  = ZP**2.0  - ZA**2.n  / oUTBUPd.S) 

CL  = (ZP  ♦ SORT(ZP**2.0  - AL  • flL)>  / AL 

TSAF  r 0UTBUK1»2)  - CL  * OUTBilF(?»?)  (SCOMpuTr  “▼NTMU»*  jr**'', 

TTAMb  = OUTpiiF(3»2)  ♦ CL  • 0iJTquF(4»2)  MCoMpiiTr  •iaxt^iim  tf“P. 
RETURN 

110  STATAP  = .FALSE.  '3*'o.  SET  MOAa  PARA^pterS 

CALL  FILCHK (Sa20.5fl00) 

SECNXT  = ITAPE 

120  CALL  POINTR(»800*<R20)  'aRPA'o  NEXT  InPiiT  OATA  RPrOop 

TSAF  = OfltH  'aTMITfALTZP  MTMTMiiM  TrMPrPATIlPr 

TTAMB  = DB(1>  '5TMITTALTZF  “AYlMitM  temPfRATURP 

DO  130  J=2.24 
TSAF  = AMINl (TSAF.DB( J) ) 

130  TTAMb  r AMAXl  (TTAMR,oq(.j)  ) 

00  ISO  1=2.3(56  QroMPUTE  VFARI  Y **INT'’(IM  amp 

CALL  MTRAN(MtRGE.2.fl4.0llTO(IF.  ISTAT.22'  maxTMU”  TFmPfRAT"PF^ 

IF(ISTAT.LT.O)  go  to  "20 

rF(lHEaD2.GE.R999R)  GO  TO  BOO 

DO  140  J=1.24 

TSAF  = AMINl (TSAF. 0B(J) ) 

140  TTAMB  = AMAXl (TTAMB, 0P(J) I 
150  continue 
RETURN 

«*«*«error  message  exits 

BOO  WRTTE(NWRT.fllO)  SECNXT . SECONF . SECF'T 

810  FOPMaT(  *0***MFO(JESTEn  DATr  CIS.*)  IS  OUT  OF  RAa-GF  :»,!»(  9X , I"  ) ) 
STOP 

820  WRTTE(NwRT.e30)  SFCNXT 

B30  F0pMaT( •OAA^r'TPAN  READ  ERROR  at  RFOuESTFD  OATf  = *,15) 

STOP 

840  WRITE(NWHT.8hO)  NXTSEC 

850  FORMAT! 'O^aaNO  SOLAR  INSOLATION  DATA  AVAILABLE  FOP  OATE  = '.15/, 

. • PROGRAM  TERMINATED') 

STOP 

,•*«««**«•*•*•«*•***•*•  internal  Subroutines  *•***«****•**«*«•*«**"* 

0 

subroutine  FiLCHK(»,») 

r RFADS  FIRST  DATA  FILF  RECORD  AND  STOOES  FILE  PARAmCTFRS 

C 

CALL  NTrAN(MErGE.2.84.0UToUF.1STAT.22)  ORFAp  First  RECORD 
XF( 1STAT.lt. O;  RETURN  1 OBAD  I/O  STATUS?  NO... 

SFCONE  = OUTBUF(2.1)  QSFT  FIRST  RfcoRO  POINTER 

SECENO  S 0UTHUF(4.1)  OSET  LAST  RECORD  POINTER 

SECNOW  = SECOnE  OSFT  PRESENT  RECORD  POINTER 

if(itape.lt.secone)  return  2 oreoiiestfo  OATf  outstof  limits? 

IF(SECEND-1TAPE.LT.365)  RETURN  2 

CALL  nTR AN (MERGE. 10.22)  ONO,  REWIND  INPUT  DATA  FILE 


r>rioo  n o 


RETURU 


SU«^R0UTINE  P01NTR($.«> 

RPADS  requested  DATA  FIL^  INPUT  PErO»D 


LYR  = 0 

CALL  NTrAN(MERGE*?0»1STAT) 
IF(ISTAT.LT.O)  RFTURN  2 

IF(SECNxT.LT.SECONE)  return  1 
IF<SECNxT.6T*SECEN0)  RETURN  1 
I5IGN  = 1 

IF(SECNxT-SECnOW)  10»SO*20 


taiMITlALTZF  YE/>RS-TO-«;Kln 

lawftiT  and  (/nrtack 
qpad  I/O  <;tatu«;?  no... 

QI*;  rfOUFSTEo  hate  oiiT«;lnF  tmf 
f3  RAmGE  of  THF  OAtA  file?  ►'0... 

QTmITIALTE  date  FlaO 

ORFOUFStfO  DATf.LT/fo/GT.PpF'F'T 


10  ISIGN  = -1  '3SF 

20  IYRS  = SECNXT  / 1000  '3SF 

LOAY  = SECNXT  - 1000  * lYPS  OSF 

lYRl  = SECNOW  / 1000  QSF 

LPY  = SeCNOW  - 1000  * 1YR1  f^SF 

IYRS  = ABSdYRS  - lYRl) 

LDAY  = ISIGN  ♦ (LDAY  - LDY)  WRF 

IF(IYPS,EO.O»  LDAY  = aBS<LPAY) 
IF(IYRS.NE.O)  LDAY  = ABSCA66  ♦ LDAY) 
IFdYRS.NE.O*  LYR  = IYRS  - 1 f^^F 


QSFT  DATF  FLAG  PRIOR  TO  PRfSF^'T 
'3SFT  PEQIIESTFP  YEAR 
osFT  reoufstfo  day 
qsft  present  vfar 

QSFT  PRESF^IT  PAY 


raRFDFFINF  REottFSTf''  ^av 


IFdYRS.NE.O*  LYR  = IYRS  - 1 (^RrDFFlNF  YE arr-To-SI' IP 

30  next  = 3 * iSiGN  • <3fi6  ♦ LYR  ♦ LPAY)  QRrPfrFiMF  POINTER 

SECTOR  = SECTOR  ♦ NEXT  QSfT  MEW  SECTOR  Nu^pfR 

SECNOW  = SECMXT  QRFPfFIMF  PRfsfnT  nav 

CALL  MTrAN(MErGE*6»NEXT)  OPOSTTIOm  TO  RfOUESTFD  RfCoRO 

50  CALL  NTrAN(MErGE*2»84.0UTRUF.ISTAT.?2»  ORFAp  M^yT  3 SECTORS 

IF(ISTAT.LT.O)  return  2 '^BAD  I/O  STATUS?  NO... 

IFdHFAD2.NE*SECNXT)  SO  TO  100  QFTLF  PATF  SAME  As  ReouESTeD? 

RETURN  QYFS. 

100  IF(SECMXT.LT.IOOO)  RETURN  OSTATISTTCAL  FILE? 

WRTTE<NWRT»120)  SFCNXT.IHrAD2  ONO.  WRITE  ERPOP  MESSAGE 
120  format ( 'OataREQUESTED  record  not  FOUNP  1M  file: • ,?(?x»IS) ) 

STOP 


SUBROUTINE  T26HRS 

ADDS  SUNRISE  AND  SUNSET  TIMES  TO  SOLAR  INSOLATION  ARRAY 


NSOL  = 1 
SUNRIZ  = .false. 

sunset  = .false. 

DO  50  1=1*24 
TIME  = FLOAT  d) 

IF  I SUNRIZ)  GO  TO  20 

if(srt.gt.time>  so  to  10 

IF(SRT.EQ.TIMe)  time  = TIME  ♦ 0. 
SUNRIZ  = .true. 

XI (NSOL)  = SRT 
Yl(NSOL)  = 0*0 
NSOL  = NSOL  ♦ 1 
10  XI (NSOL)  = TIME 
Yl(NSOL)  = 0*0 


^INITIALIZE  TIME  INDEX 
^INITIALIZE  sunrise  flag 
aiNITlALTZE  SUNSET  FLAG 

OSFT  time  of  pay 
OAFTER  SUNRISF? 

00001 

oyfs.  reset  sunrise  flag 
oinsfrt  sunrise  time 

OINSERT  SUNRISE  SOl AR  INSOLATION 

oincrement  Index  number 
OINSERT  time  or  DAY 
oinsfrt  solar  insolation 


B-72a 
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NSOL  = NSOL  ♦ 1 
GO  TO  ■>0 

20  IF (SUNSET)  GO  TO  40 

IF(SST.GT.TIME)  go  to  30 
if(sst.eq.timf)  time  = time  ♦ 

sunset  = .true. 

XI (NSOL)  = SST 
YI(NSOL)  = 0.0 
NSOL  = NSOL  *■  1 
GO  To  40 

30  XI (NSOL)  = TIME 

Yl(NSOL)  = SOLAR(I) 

NSOL  = NSOL  * 1 
GO  TO  ‘iO 

40  XI (NSOL)  = TIME 
YKNSOL)  = 0.0 
NSOL  = NSOL  ♦ I 
so  CONTINUE 
RETURN 


OTmC'»EME'''T  INOEX  NUMPro 
QAFXrp  SUNSET? 

0.00001 

raYES.  reset  sunset  El  AG 
OTusrRT  SUNSST  TIME 
oinssrt  sunset  solar  InSOLATTO- 
^increment  Index  number 

raiMSERT  time  DF  hay 
0 insert  SOLAQ  insolation 

raiNCREMEuT  INDFX  MUMPER 

QInS'’PT  time  of  day 
giNSrpT  rOLAR  insolation 
qincrement  Index  numrer 
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SLUP 


SOB^OUTIHE  SLUP( * , t , YOOT ,XS, YS,LN,M0R0» 

I OEni  r I c«T  1 0N>  • • 

SINGLE  precision  subroutine  SLUP/L A6r aNG I *N  INTERPOLATION 
B'Jt?  P0UL50N  (JPL» 

1.  XIla'JE  ( JPL  ) 

FORTRAN  IV 

PURPOSE • . . 

5I.J5LC  LOOK  JP  ANO  LaSRaNGIAN  INTERPOLATION, 

,1VEN  A ValOE  of  an  INOE^’ENOENT  VARUBlE,  X,  FIND  FIX)  FROM 
A GlYCN  T'IULATeO  FUNCTION  OF  X(I)  VS,  Y(I),  ANO  OPTIONALLY, 
THE  FIRST  OERWaTIVE, 


RFSTTICTIonS,,. 

c NO  ex»lICit  restrictions*  I,E., 

C any  order  interpolation 

C ANY  SIZE  TAOLE 

C TRE  independent  VaRIAOle  '‘^*Y  3E  NONOTON  I C ALLY  INCREASING  OR 

c decreasing 

C 

C METHOD. .. 

C LAGRAN„r*S  FijrmuLa  IS  USED  NItH  EXTRAPOLATION  FOR  POINTS 

c jutside  The  table,  a binary  search  is  used,  which  Hat  be  the 

C SOLE  purpose  of  USING  SLUP, 

c 

C calling  SeJOENCE... 

C X,  r\DcP£ND£NT  VARIABLE  (INPUT) 

c r,  interpolated  Value  of  dependent  variable,  Y(X)  ioutput) 

C YDOT,  calculated  first  DERIVATIVE,  T*(X)  (OUTPUT) 

C <S,  TABULATED  INDEPENDENT  VARIABLE  (INPUT) 

C rs,  TABULATED  DEPENDENT  VARIABLE  (INPUT) 

C lN,  NU-BER  of  tabulated  points  (INPUT) 

C IF  ONE  DESIRES  TO  FIND  K IN  THE  SEQUENCE  X ( 1 ) , * I 2 ) , X ( 3 ) , 

C . . . , X { K ) , X ( K* I X(LN)  when  the  GIVEN  X IS  BETWEEN 

C X(<)  and  X(K*i),  then  hake  LN  negative  ANO  THE  VALUE 

C K COMES  BACK  IN  LN. 

C HORO,  order  OF  INteRPOLAT Ion,  using  MoRO^I  POINTS  IN 

C LAGRANGE'S  formula  (INPUT), 

c make  moro  negative  if  the  first  OERIVIATIVE  is  desired. 

C 


OATA  ZERo/0,0/*  ONE/I. 0/ 

DIMENSION  XS(2I,  YS(2) 

C 

N»I ABSILN  I 

c INSURE  tHat  the  Number  o^  Points  used  to  interpolate  rs  less 

C than  oh  equal  to  the  number  of  data  points  supplied 

M»MlNn(IABS(MORO)*I,N) 

c assum£  inoepenoeht  Variable  is  monotonicallv  decreasing 

K"l 

L"N 

C MONOTOnICalLT  increasing  or  decreasing? 

IF ( XS( I )>XSI 2 ) ) S.S,  10 

C independent  variable  is  MONOTONICALLT  INCREASING 

5 K»N 
L-l 


J 


B-73 


o n 


50^0-27 


C NON  BESIM  BINABT  SCARCN  FOB  aBPBOBBIATE  SUB-INTEBVaL 

10  ja(K«LI/2 

lF|X*XS(Jn  is<3&t20 

15  K«J 

«0  TO  25 

20  L-J  ... 

25  iFCUBStK.Ll.l  ) 10.30.IO 
30  J*HAXO(ICiL> 

SET  indices  of  SUB-INTEBVAL  C0NTAININ6  POINT  «|VCN 
(ALSO  INSUBC  INDICES  ARE  MtTH|N  THOSE  ALLOWED.  I.E..  ? TO  N) 

35  NNaNAXOU  . J-N/21 
NMaH|NOIN.NN*M-l I 
NNbNH*M^ 1 

C IS  interpolation  AEBUESTED  at  the  civen  point? 

IFICNI  ?5.?5^H0 
«tO  yaZERO 
VOOTaZERO 
DO  ?0  JaNN>H 
T»TS< Jl 
X"0 

DO  40  laNNtNH 
IFII-JI  AS.AO.RS 
AS  R>X-XSI  I I 

|F(R1  55,50.55 
50  RaONE 
X"l 

IFIHOROI  55,S5.?0 
55  T«T*R/(XS| JI'XSI I ) I 
40  CONTINUE 

1F(K)  70,70,45 
45  VOOTaYOOTaT 
60  TO  ?a 
70  Y»T^T 

C IS  the  DERIVATIVE  REQUESTED  AT  THe  6|VeN  POINT? 

IFIHOROI  75,7S,?0 
75  DO  15  1aNN,Hn 
IFII.JI  BO, 05, BO 
SO  yOOTaVDOTaT/IX-XSI n I 
85  CONTINUE 
?0  CONTINUE 
60  TO  too 

C BINARY  SEARCH  ONLY  WAS  REQUESTED,  RETURN  SUB.INTERVAL  INDICES 

?S  LNaNN 
NOROaNN 
Too  RETURN 

C 

ENO 
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SORT 


SVilROUTINE  S0RTIX,N,NI 

SORTS  array  X IN  aSceNOINC  ORDER  AND  RCNOVES  OURLICATC  ITCNS 
REAL  CPS/OtOl/i  XINl 
H • N • 1 

DO  20  i«i,H  bsort  array  in  asccnoind  order 

XN|N  ■XII) 

IH|N  • 1 
X • I ♦ I 
DO  10  J-K,N 

|F|X|JI«6T.XMIN)  60  TO  10 
XMIN  ■ XIJ) 

|N|N  ■ J 

10  continue 

XIIHINI  - X( I I 
20  X( I I ■ XHIN 

N • I 

DC  60  Ia2,N  OeLININATE  DUPLICATE  >(11  TERNS 

If (X| I l-XiNI^LYtCPSI  60  TO  SO 
N ■ M ♦ 1 
XIN)  ■ X(  I ) 

SO  CONTINUE 

J • H ♦ ( 

00  40  l-J.N  BZERO-PILL  RENAININ6  X||)  TERNS 

40  Kill  ■ 0«0 

RETURN 

end 
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TB2GET 


FUNCTION  TI2fiCT<X.ri 

C table  lookup  and  INtEBPOLATION  for  F|X,Y| 

60  TO  10 

c 

entry  TB2SET|XTAB,NX,NX,N00CX,TTABtNy iNTiMOOeV.FTAB, iOIhF, IERRI 
C.  L*  LAWSON,  JPL,  ISAS  JULY  30 


|XTABll)tl«I.NX| 

NX 

MX 


MOOEX 


(TTABi J),Ja|,NY| 


table  of  X VALUES 

NOy  OF  entries  in  XTAB 

NO.  OF  X POINTS  TO  BE  USED  BY  INTERPOLATION 

Formula,  idebrce  of  formula  will  be  mi-h 

Permit  itLE.Mx.LC.io 

-I, 2. OR  3 TO  SELECT  SEARCH  METHOD 

1 LINEAR  search 

2 BINARY  SEARCH 

3 RECALL  SEARCH 

.NYfHY.MODEV  SIMILAR  PARAMETERS  FOR  Y 


( IFTABI I ,J| .lat ,NX( ,J.| ,NY|  TABLE  OF  FUNCTION  VALUES 

Fd.JI  IS  VALUE  OF  F AT  |Xli).Y(J)) 

lOiMF  Dimension  of  first  subscript  of  F|  , i 

lERR  •!  600D 

•2  AR6UMENTS  OUT  OF  RAN6E^  EXTRAPOLATED  VALUE 
WILL  be  COMPUTED. 

DIMENSION  XtABINX),  VTABINY),  FT AB I 1 DI NF ^ 2 I 

DIMENSION  CXIIOI,  CYllOi 

ICRR>I 

|XX«0 

JTY«0 

NX|aMX 

NY|bMV 

iFlMXI.LEyO  ^OR.  MXU6T.MIN0t  lO.NX)  ) IERRa2 
IFINYI.LE.O  ^OR.  MY1.6T.NIN0I lO.NY) I IERR>2 
IF| |ERR.EQ^2l  ST0PTB2SET 
RETURN 

ENTRY..  TB26ET 


t 

i 


; 

I 

1 


C 

C 

c 


10  CONTINUE 
|ERR«i 
XI>X 
Yl«Y 

call  TBSR|XTAB.NX,NX|,N0DEX.X| ,ibx,ixx,keoxi 
call  TBSRI YTAB.NY.MYi ,M00ET|Y| ,JST, JTT.KSOTI 
60  TO  (20',70;40,A0,«0I  .K60Y 

EXACT  MATCH  ON  T 

20  60  TO  ISO.kO^RO.RO.ROl ,K60X 

EXACT  natch  on  X 

30  FI>FTAB| IXX.JYT) 

60  TO  MO 

EXACT  T,  non-exact  X 

SO  lERRa| 

BO  JlaJTT 
JXWJYY 


I 

i 
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CT|||a|,0 
«0  TO  100 
C 

*0  lERRsl 
70  JlaJIY 

CALL  LCOCr|VT«OIJOTI,NTl.YltCri 
fiO  TO  IOO,|Or>O.«0,YOI.K«OX 
C 

•0  ll•IXX 
I2>|XI 
CXI  1 lal.O 
«0  TO  110 
C 

90  iei«ll*2 

ioo  ii«iox 

I2>IBX«NX1-1 

CALL  LCOeriXTAB(IBXI>Xl,X|tCX| 
C 

c 

c 

110  ri>o. 

JC>0 

DO  130  J-JI.JT 
JC»JC*I 
XSUNaO*0 
IC-O 

DO  120  I-II.I2 
IC»IC*1 

*120  XSUH>XSUN«CX(  iClafTABI  I . Jl 
130  ri-f i»cr ijci«xsuM 
190  TB26ET«ri 
RETURN 

end 


NON-EXACT  r 


EXACT  X 


NON-EXACT  K 


INTERPOLATI 


SUtROUTlNC  LCOCr(XTA9>PTSiX«Cl 
LA6RAN«E  INtcMPOLATION  COC^^ICICNTS  (TtEfiCT  ROUTINE) 


C 
C 

C INPUT*. 

C (XTA0|I).I>).NPTS) 

C HPTS 

C 

C X 

c 

C OUTPUT.* 

C |C| I I • .NPtSI 

C 

C 

C 

C 

DIMENSION  XTAOttSli 
HB  NINO  l|S.MPTS) 

DO  10  laiiN 
C< I I*!* 

10  011 laX-XTABI I ) 
ir|N-H  *•0.10,20 
C 

20  00  30  I-2,M 
|N1>|.| 

00  30  Jal.lMj 
U*XTABI I ••XTaIIJI 
Cl  I laCI I (•lOlJI/U) 

30  CUi«-C(U»*(0l  M/Ul 
10  RETURN 

end 


table  of  X VALUeS.  ant  order  is  Ok 
no;  of  X POINTS  TO  BE  USED. 

i.lc*nfts.le;is 

X value  at  which  interpolation  is  desired 


LAfiRANfiE  INTERPOLATION  COEFFICIENTS. 

value  of  a dependent  Variable  can  be 
computed  by  CONFUTINB  dot  product  of 
C array  and  dependent  VARAIBLE  ARrAT. 

Cl IS> . 01  IS) 
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TBSR 


SUBROUTINC 

c 

TAI^E  search  (TBEfiEf 

ROUTINE) 

c 

C.  L*  LAMSON.  JfL, 

1R4B  <^ULr  ]0 

c 

|NPUT«« 

c 

|XtAB|I||Ib1,NXTAB) 

monotone  table.  INCRCASINB  or  dccrcasino 

c 

nxtab 

NO.  OF  entries  in  XTABI  ). 

c 

NTAB«6C.1 

c 

nmant 

NO^  or  BRACKETIN6  POINTS  NaNTCO. 

c 

1 .LCtNMANT.LC.NXTAB 

c 

NODE 

■l.2iOR  3,  RESULT  WILL  BC  SANE  IN  ANT  NOOK 

c 

BUT  NORC  CFFICICNT  IP  APPROPRIATE  MODE 

c 

IS  selected; 

c 

•1  linear  Search,  mccommcnoeo  hmen  xtab.is 

c 

cOUALLV  spaced  oR  NEARLY  SO.  TBSR  MILL 

c 

COMPUTE  FIRST  INDEX  BY  LINEAR  INTERP* 

c 

OLATION  between  BC6iNN|N6  AND  fND  OF 

c 

XTAB.  search  will  be  sequential  PROM 

c 

there. 

c 

• 2 binary  search,  RCC0MNCN0C>'>  WNEN 

c 

SPACIN6  IS  VERY  NONLINEAR. 

c 

>3  recall  search.  RECOMNCNDCO  RNEN  spacino 

c 

IS  very  nonlinear  and  SUCESSIVc  request 

c 

ARQUNCNTS  arc  cxpcctcd  to  be  In  sane 

c 

RC6I0N  OP  table;  IN  THIS  MODE  TNE  INPUT 

c 

VALUE  OP  IX  IS  relevant. 

c 

IP  I.LC.IX.lE. NXTAB,  A SEQUENTIAL 

c 

SEARCH  WILL  START  AT  IX,  OTNERWISE  A 

c 

binary  search  will  be  used. 

c 

X 

input  ARQUMCNT 

c 

c 

OUTPUT.. 

c 

I> 

INDEX  OP  first  BRACKCTINQ  POINT 

c 

IX 

INDEX  OP  POINT  nearest  TO  X 

c 

K60  • i 

exact  match  IXbXTABIIX)) 

c 

• 2 

BRACXETCD  but  not  matched 

c 

• 3 

outside  op  XIII 

c 

• R 

outside  op  XINTAB) 

c 

• S 

NWANT.6T.NTAB 

c 

DIMENSION 

XTABINXTABI 

nw*nmant 

NXr«NXTAB 

IPINXT-NMI 

10.20.20 

10 

KfiOI>B 

60  TO  310 

20 

NMN1*NH«I 

|BNAI«NXT.N 

MMI 

Xlal 

S«SI6NIUE0 

•ITABiNXTi. 

XTABI 1 1 1 

c 

c 

TEST  NODE 

c 

•0  TQ  use. 

R0.Sei.N0DC 

so 

iPilii.ei.i 

•AND.  III. 

LE.NSTI  60  JO  ISO 

c 

c 

c 


TCSr  CMOS  BcrOKC  STARTINS  IINarT  sEAMCM 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


•10  CONTINUE 

iriS*(Xt>jCT«BI  I ) n 3OO.B0,*0 
so  KS01*I 
so  TO  310 

40  ir(S*|Xl.XT*B|NXTM I ■0,70,330 
70  KS01«1 
60  TO  3<i0 

■ESIN  BINARY  search 

■0  NLOMal 

NHISNaNXT 

«0  IX|a|NL0M*NH|6HI/2 

iris«ix)-xTABi ixi  n i 100,270,110 
ioo  NMISHalXl 
60  TO  120 
110  NLONalXl 

120  |F|NHI6H.nlOM>I i 230,230,90 

linear  interrolation  For  startins  index 

130  CONTINUE 
rNNl>WXT-I 

|A1*1,SCo*FNM|4(X|«XtAB| I n/(XTABINXTI>XTABI  1 | ) 

|F|  IXl-1  1300,  MO,  MO 
MO  IFIIXMNXTI  ISO, ISO, 330 

ISO  ifis«(Xi-xtabi  ixn  1 1 iso, 270, mo 


SEARCH  Backward 


140  IXMIXMI 

iFdXIt  300,300,170 
170  IF|S*|X1-XTABI  IXt M I 140,270,100 
IBO  NLOWatXI 
60  TO  220 

SEARCH  FORMARD 

MO  IXMIXMI. 

|F|NXT«|X|I  SS0,200,200 
200  IFIS4IXMXTABIIX1IM  210,270,190 
210  NLOWalXMl 
220  NH|6NaNL0H9| 


230  R60M2 

|F|S4|XTAB|NNI6H|»2,C0*lll 
2<I0  IXMNNI6H 
60  TO  240 
2S0  IXmNLON 
240  |t|«NL0M.NWNi/S 
60  TO  too 


X IS  BRACKCTED,N0T  NATCHCO 
♦XTABINLOMill  SRO^aSO^tSO 


I ii  nbtcnib 


c 

c 


r%  ry  r% 
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300  KfiOlal 
310  IX|*) 

320  l*l«l 

«0  TO  3*0 

330 

3<(0  |X1"NXT 
350  |Bi«|BM*X 

3*0 

370  IX-IXI 
KC0«Xfi01 
RCTUMN 

end 
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appendix  C • 

MERGE  PROGRAMS  LISTINGS 


1 

I 

I 


I 

1 


C-l/C-2 
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TDFli4 


TDFIS 

Builds  imtul  'merge'  file  from  user-input  noaa  weatme*! 
tape;  output  Records  contain  the  station  id,  julI*n  date, 
Sector  number,  houri t temperature,  hourly  mind  velocity, 

AND  space  For  Hourly  solar  radiation 

parameter  NROa3,  NWRTaN 

REAL  0UTauF(2Bi3l  , DBI2NI,  S0LARI2‘«),  MVI2NI 
integer  auFR(83,Ml,  ISTATINI 

integer  J0*TEI 12  1/0,31 ,5’,’0, I2o, |6| , 181 ,212.2N3,273,3jN,33n/ 
integer  MERGEI2I/' 12' ,'  '/.  MODE/ 0 I 1 OOOOOOOOOO/ , mSTaT/C/ 
integer  TAPE(2)/' t I' ,'  '/,  TEMP(6|,  TPDAY,  TPMQ,  TPYR,  WlN0(6l 
equivalence  (0UTRUF( J , I I , IHDI  ) , ( OUTBUF ( 2 , 1 I , IH02 I 
equivalence  ( OUTBuF ( 3 , 1 ) , 1^03  I , ( OUTBUF ( H , I I , IHOm 
equivalence  (OUTeuF(S, I ) ,DB( 1 ) I , I OUTBUF ( S ,2  I ,NV ( 1 I I 
equivalence  (0UTPUF(5,3I,S0LAR(iI) 

NTP-0  unitialize  tape  bead  count 

nFw-0  BINItIALIZE  file  mRITE  count 

reaO(nro,ioi  iostn, I yr.lstyr  bread  Tape  parameters 

10  FORMAT! AS, 13, I3I 

mRITE(NbRt,20)  TAPE,mOOE,IDSTN,iyR,LSTYR 
20  F0RM»T ( ' I TOF 1 M PROGRAM'/, 

. ' tape  unit  ■ ',2AA»',  even  parity,  mode  ■ *,0|N/, 

t ' station  number  ■ 'lAS/, 

, ' first  Vf*R  ■ 19', I2,'  last  year  ■ i9',I2///» 

ISTATIII  • IOkI tape  , tN , I ,M00e,0, ICOUNt I BSET  input  tape  mode 
IF  I I STAT n I 'EUtO  ) GO  TO  30  BBAO  I/O  STATUS? 

wRITe(Ni.Rt,2S)  ISTAt(I)  byes. 

25  format (' 0»»«M00E  status  error;  ',I6I 
STOP  MODE 


30  call  ROCHk 
ISeCtR  ■ 0 
IBlF  ■ I 
DO  <40  I"1  ,2? 

D6 ( 1 I ■ . I OOU . 0 
<*Y(  1 ( • -1000.0 

<40  solar ( 1 1 ■ . 1 coo.r 

IHOl  • IOSTN 
IHD<4  • 366  * lOOO  4 
LOAY  • 0 
L yr  - I Yr 

LOaTE  ■ 1000  • LY», 


DO  60  I ■ 1 , H 
I STAT ( I I ■ I 0- ( 


BNO.  verify  tape  station  ID 
BINITIALIZE  sector  NUMBER 
BINITIALIZE  INPUT  BLOCK  COUNT 

BINITIALIZE  ambient  temperature 
BINITIALIZE  WIND  VELOCITY 
BINITIALIZE  SOLAR  RADIATION 

bmove  station  id  to  OUTPUT  record 
Bmove  final  date  to  output  record 

BINITIALIZE  DAY  INOE* 

BINITIALIZE  YEAR  INOE* 

BINITIALIZE  JULIAN  OaTE 

Bread  one  Day's  oata  from  tofi*4 
, I ) .0,  icouNT I a INPUT  Tape 


Bread  one  Day's  oata  from  tofi‘ 

tape,i6,b3,bufr(i,I),o,icounti  a input  Tape 

NTP  ■ NTP  . 1 SINCREMENT  tape  rc*o  count 

IF ( I STAT ( I I ,EU. l » Go  TO  SOO  BeNO  OF  TAPE  FILE  ENCOUNTERED? 

I F ( I I STAT  I I I .e0.<4  .On,  ISTAT)  I 1 ,e0.0  ) .AND,  I C OUNT  , EQ  . 83  I 

60  TO  60  BNO.  bad  I/O  STATUS? 

«R  I TE  I Ni»Rt  .55  1 I STAT  ( I 1 . I BLF  . ISECTR.  IcOUNT  aYES. 


60  TO  60  BNO.  BAD  I/O  STATUS? 

«R  I TE  I Ni»Rt  ,55  I I STAT  ( I I , I BLF  , ISECTR,  IcOUNT  BYES, 

format (' o»»«tape  read  error;  status  ■ ' \/, 

' AT  Block  ■ J.u,',  sector  • ' ',  icount  ■ '.Ui 

ISTATIII  • -1  BSET  t jR  STATUS  Fla6 

call  CMKOTS  BCMecF  input  record  OATES 


5040-27  (Change  1) 


|BLK  > IBlK  « I SlNCRCHCNT  InRUT  BLOCK  COUNT 

DO  70  l>l,R 

70  1^ ( IST*T U I .EO.N  .OR'  I ST  AT  I 1 I . EQ . 0 I 60  TO  SO  BtAPE  ERROR? 

75  nR1TCINRRT,74)  IBlK.ISCCTR  STES. 

74  FORHATI  *0***BtD  OaY:  BLOCK  - '.Ui*  SECTOR  - '.U) 
lYR  ■ LYR  BSET  year  index 

lOAY  > loay  « 1 bincrenent  day  index 

IK( I0AY.LC.345)  GO  TO  100  SEND  OF  YEAR  REACHED? 


lOAY  • LOaY  * 1 
IK( I0AY.LC.345) 
|YR  ■ lYR  • I 
|DAY  ■ 1 
GO  TO  100 


Bend  of  year  reached? 
byes,  increment  year  index 
breoepine  Day  index 


BO  FLDI2H. 12. TPYR ) ■ FLO  I 1 B . 1 2 t BUFR | 2 , 1 | | BtaPE  READ  OKAY... 

FL0(2**,*,TPM0|  • FL0|30,6,BUFR(2,I  ) » 

PL0I30,*,TPM0>  ■ FLD(0,6,BuPRI3, I ) ) 

FL0(2‘»,12.TP0aY)  • FlO(4,12.BUFR(3,I  I ) 

0EC0DE»4,90iTPYR(  IY(j  HCONVERT  TAPe  Year  to  integer 

INST  • INSTAT(OUH) 

IF( lNST.NE.Ol  NRITE|NWRT,9S»  1 NS T , I BL K , 1 SEC TR 

oecooe(4,9o.tpmo)  iho  bconwcrt  tape  month  to  Integer 

INST  ■ INSTAT(OOM) 

IF  ( INST.NE.01  ‘«HITE(NNRT,9S|  I NsT  , 1 BlK  , I SECTR 
0EC00E(4,90.TF0AYi  IdAY  BCONVERT  tape  oat  to  integer 

INST  • INSTATIOOM) 

iFi INST.NE.O)  NRITE(NWRT,95|  1 NsT , I BlK , 1 SECTR 
90  format  I NX ,12) 

95  F0RM»T( »0»»*OeCOCE  ErROR;  status  ■ *,01R,'  AT  BUOCK  ■ ',I4, 

. ' > SECTOR  ■ » , 14 ) 

lF(lMC.Ea.2  .and.  10*Y.6E.2’)  go  to  60  BLEAP  OAY? 

|Oat  • io*Y  ♦ jdatciimo)  bno.  compute  Julian  day 


BtaPE  read  okay... 


BCONVERT  tape  DAY  TO  INTEGER 


'.oiR,'  AT  Block  ■ 


ICO  IOATE  • /OAY  , loco  • IYR  BCOM 

1F|  lOATE.GE* IhDM)  Go  TO  60°  BENO 

IP( IDATE.lt. LOATE)  stop  SeONCe  bno. 

IP| IDATE.EQ.LOATe I ISECTR  " ISecTR  - 
IF  1 1 yr.gt.lyr I Call  fillyr  bno. 

iFi  IYR.GT.lYR*!  ) CAl.L  ADOYR  BnO. 

IF| IOAY.Gt.LOAY*! ) CALL  aO^AY  «N0. 

lyr  • IYR  Bno. 


LOaY  I 

LOaTE 


ioay 
> IOATe 


BCOMPUTE  JULIAN  DATE 

bend  of  'MERGE'  FILE  REACHED? 

BNO.  INCoPNECT  date  SEwUENCe? 

TR  . 3 BNO.  SAME  DAY  AS  LAST? 
BNO.  PILL  IN  END  OP  YEAR? 
bno.  insert  missing  years? 
bno.  insert  missing  days? 

Bno.  reoepine  year  index 
breoeP/ne  Day  inoe* 
bredepine  Julian  date  index 


DO  200  1*1. N 


bfor  each  Quarter  day... 


IP  I ISTATI I I .E».H  .or;  ISTATI  I 1 ,EQ.n  I GO  TO  ISO  BtAPE  ERROR? 

DO  120  j«l,6  Byes, 

K ■ J ♦ 4 • I I - I ) 

dB|K)  • -1000,0  bflag  Bad  temperature  data 

120  aViK)  ■ -lOOo.O  bflag  BAO  BIND  VELOCITY  DATA 

GO  TO  200 

150  WiNOlil  • FLOl 18, IS.RUFRIS. I I ) BNO,  SAVE  TAPE  H|ND  VELOCITY  OATa 
PLDI  18.4.w|N{>(2I  1 - fLDI30.G,BUFRI  IB,  1 I ) 

FLDI2R,l2.WlNOI2n  - FLO  I 0 , I 2 , BUPR  I 1 9 . I ) I 
WINOIJ)  • PL0(A.18,BuFR(32.>>) 

BlNOlR)  • PLDI  18,  |8,BUPR|<t5t  I I I 

PLDI 18.4,mIN0|5)  I * FLD(30.G|SUFRI58, 1 ) ) 

PLDI2N.I2.M1NDI5I 1 - FLD 1 0 . > 2 • BUFR I 59 , I I ; 

MlNOlA)  ■ PLDI*. l8,BuPR( 72, I I ) 


bflag  Bad  Temperature  data 
bflag  Bad  bind  velocity  data 


t 


RETURN 


subroutine  ChkDTS 

checks  Torm  input  records  kor  o*te  o i scpe^’enc ies 
IK(I.LT.2)  return 

IF(BUFR( I , I-l  I .NE.BUFRI  1 , I I I 60  To  10  BS*HE  D*TE7 

IF|BUFRI2. I-I  I .NE.BUfR(2, I I > 60  To  10 

iFiFEOtO, 18,BuFR(3.  I-l  1 ) .nE.  FLDIO, IB.BuFRl 3. n I I 60  TO  lO 
RETURN  Byes. 

10  hH I TE ( NWRT , 20 ) NTP.IsECTR  BnO, 

20  FORHat ( * 0*»*0*TE  FOR  S*HE  0*T  OIFFeRS  *T  RECqrD  ■ 'lU, 

. ' , sector  - '.161 

WRITE! NWRT ,30  I IBUFR(J,1-1).J»1,3),(BUFR(J,I  l,J»l,3l 
30  format  I J X ,2*6, *S,3X ,2*6 ,*6 ) 
return 


subroutine  FiLLYR 
Builds  skelet*i-  'mer6e' 

DO  10  I • 1 , 2M 
0B( I ) • -1000.0 
IQ  WVl  I I - -1000. 0 
LDaT  ■ LDAY  ♦ I 
KDaT  - 366 
DO  SO  I*LD*T,kO*Y 
IOaTE  ■ I ♦ 1000  • LtR 
so  C*LL  wRTRCD 
LDaY  • 0 

ID*TE  ■ 1000  • (LYR  * 1 ) 
return 


records  For  missiho  o*ys  *t  eF'O  of  year 

BFLAG  Bad  Temperature  d*t* 
bfl*6  Bad  wind  velocity  o*ta 
Bset  st*rt  Day 
bset  final  Day 
bfor  e*cm  missing  Day... 
BcOMPUTE  JUl1*N  D*TE 
BwRITE  'MER6e'  output  record 
bredefine  index  o*y 
• I Bredefine  juli*n  d*te  index 


subroutine  rdcmk 

RE*DS  INItUL  TOFir  t*pe  record  *N0  verifies  the  ST*TI0N  id 

IST*T|I)  - lowl TAPE,i6,83,BUFRl  1 , I ) ,0, ICOUNT I 

IF  I I IST*T ( 1 I .eO>M  .Or.  IST*T I 1 ) .eQ.O ) .AND.  1 C OUNt . EQ . 8 3 I 
. GO  TO  20  B0AO  I/O  STATUS? 

writeinwrt, 101  iST*T(i)  Byes. 

10  format ( '0«»»RDCHK  REaD  error;  ST*TUS  ■ ',I6l 
return  0 

20  0EC00EI?,30,BuFR( I ,1  1 I ID  BNO.  CONVERT  T*PE  STATION  ID  TO 

30  format  I <*X  , AS  1 8 HOLLERITH 

INST  ■ 1NST*T|0UM| 

IF(  INST.NE.0I  WRItEiNWRT.rOI  I NS T , 1 BL K , I SE C T R 
RO  FORMAT! 'OpapROCHK  OEfOOE  ERROR;  ST*TUS  ■ '.Oir,'  aT  BLOCK  ■ ',16, 
. ' , SECTOR  ■ ' , 161 

IF|  ID.NE.  IOStNI  stop  STNIO  BREQUESTED  ST*TIoN  t*pe? 

|ST*T!II  ■ low! TaPE.r 1 ,83,BUFR ( 1 , I I ,0,  ICOUNT I BYES,  REWIND  T*PE 
IF!  1ST*T! 1 I.E8.0)  RETURN  SB*D  I/O  STATUS? 

WRITC!NwRT,5ai  IST*T(II  BYES, 

50  FORMAT! '0»««ROCHK  REWIND  ERROR:  STATUS  ■ ',I6I 
RETURN  0 


C 


subroutine  unpack ! VaR, value  I 
converts  tape  WEATHfR  DATA  TO  INTE6ER  FORMAT 


c 

c 

c 


0CCK2I0 

ADDS  OCCK.2go  SOlaR  IMSoLATION  DATA  TO  TA^C 


C 


C 


C 


PANAMeTER  Nrd«3,  NPbT“*» 

REAL  BUFR(I3<«I.  OUTBUF  128,3)  I SOLAR(2H) 

1NTE6ER  JOAteI  J2l/o;  31 .5»,’0,  j2o,  |5j  , l8j  ,212.2‘*3,2  73,3o*',33‘t/ 
integer  IBUFie.lol,  HERGE12)/' 12*  */,  MODE/ 0 1 I 0000000000/ 

integer  seceso,  secnxt,  secoke,  Sector 
integer  TAPEi2l/*  I I*  .*  */,  TPOAT,  TPhO,  TPTR 
LOGICAL  LCHG/. false./,  LGE T / . F ALSE . / 
equivalence  ( OUTBUF ( t , I I , IN0|  I , (OUTBUF ( 2, I ) , tH02  ) 
equivalence  (0UT8UF(3, I I , I”D3)  , ( OUTBUF ( R , I ) , I MON  I 
equivalence  |0UTeuF,5,3),S0LAR(  , ) I 


BINItIALIZE  error  count 
SINITIAIlZE  tape  read  count 
SINItIAIlZE  file  read  count 
SINITIAILZE  FILE  WRITE  COUNT 
IOStN,  lOSTNi  , I0STN2  SREaD  F|LE  PARAMETERS 


' .OIH/, 


NERR  ■ 0 
NTP«o 
NFR»o 
NFn»0 

READinRD, ioI 
10  F0RMATI3A6) 

NRITEtNWRT, IS  I TAPe,mOOE,IOSTN,IdSTNi ,I0STN2 
IS  format (' 10ECK280  PROGRAM*/, 

. * tape  unit  * ',2A4,',  EVEN  PARITY,  MODE 

. * station  number  ■ '.AS/, 

' alternate  station  numbers  ■ ',2A7) 

0 


sinitialize  input  Block  count 
SINItIALIZE  tape  file  flag 
Sinitialize  sector  number 
bget  'Merge*  file  parameters 

BSTORE  'MERGE'  start  DATE 
1000  BSET  first  year 

1000  • LYPI  SsET  first  OaY 

ISTAT  • I0M(TAPE,3M. I ,nOOE,0, ICOUNTI  BSET  input  tape  mode 
IF(  ISTAT.NE.O  1 00  to  820  SBAO  I/O  ST*TUS?  NO,,, 


IBlk 
IFlG  • 0 
SECTOR  • 0 
call  FILCHF 
LOATE  • SeCOne 
LTRI  • SECONE  / 
LOYl  - SECONE  - 


20  ISTAT  • IOW( tape , 1 A, 1 3V ,BUFR ,0 , IcOUNT I BREAO  OECK.280  RECORD 

IBlK  - IBlk  ♦ 1 BINCREMENT  input  blocks  counter 

NTP  ■ NTP  ♦ 10  BINCREMENT  TAPE  mEAO  COUNT 

IF ( ISTAT. EC.  I I 60  To  600  BeND  OF  0ECK-2B0  TAPE? 

IF(  ISTAT. £0,0  .OR.  IsTAT.eO.H)  GO  TO  30  Bkiq,  BaD  I/O  STATUS? 
mR I TE ( NWRT , 2S  I ISTAT;  IBLK,  ICOUNT  BYES, 

2S  FORMAT! *0«»«TAPE  REAP  ERROR)  STATUS  • ',I6,'  *T  BLOCK  “',16, 

. ' , ICOuNT  ■ * ; 16) 

NERR  ■ NerR  ♦ I BINCREMENT  ERROR  COUNT 

IF< NeRR.LE. 10  I 60  To  20  BTOO  MANY  REaD  ERRORS? 

call  putrec  Byes, 

STOP  READ 


30  NERR  • 0 BRE-INITIALIZE  ERROR  COUNT 

DECODE  ( 80,  **0  , BUFR  I ( ( I BuF  ( I , J » , I • l , 8 I , J"  1 , 1 0 ) BOECODE  INPUT 
NO  F0RMATIAS,I2,12,R1,R|,I2,RI,I3,63K) 

INST  • INSTAT(0UH| 

IF  I 'nST.EQ.O  I 60  TO  SO 
wRITE(NmRT,RS)  inst'iblk 

6S  FORMAT!  *0«»«0EC00c  ERROR;  STATUS  • * , 0 1 *» , ' *T  BLOCK  ■ ',I6) 

GO  TO  20  esKip  record  if  decode  error 
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SC  00  Joo  j«i,io  eroR  each  input  hour.«> 

If  ( I8UE( I .J).£8. IDSTM  go  TO  60  8C0RBECT  DCCK-2B0  STATION  In? 

If  t IBUf  1 1 , J I .EQ.  I CSTM  I GO  TO  60 
If ( I BUf ( 1 . J I .EQ. I DSTn2  I GO  TO  60 

|f!lfLG.EQ,0  .AND.  IBLKiCO.il  CALL  SKlPlfJO)  SNO>  flRST  RCO? 

GO  TO  BSO  SNOt 


C 


C 


C 


C 


C 

C 


6U  I f ( IBUf ( H , J ) , lT . H8 I 60  TO  TO  BYES.  CONVERT  DAY  TO  NOHERICS 
1 buf I M , J ) ■ I BUf ( M , J ) - MB 

GO  TO  80 

70  iSuflM.J)  ■ IbUf(M,J)  - IM 

I f I I BUf ( M , J I . GT . 9 I lBUf(M,J»  ■ 0 

I8uf(6,v(l  ■ ieuf<6,Jl  • I 
80  I f ( 1 BUf ( 5 , J I .LT.M8  ) GO  TO  ’0 
IBUf ( 5 I J I ■ I BUf  I 5 , J I - MB 
GO  TO  100 

90  lauflS.JI  ■ I6Uf(5,J)  - IM 

I f ( 1 BUf ( S , J ) . GT . 9 I iBUFIS.Jl  ■ 0 
I Buf I 6 I J I ■ IBUf I 6 , J I • 1 


iCO  I«R  . IBUf (6, J) 
tPYR  ■ I Buf ( 2 , J I 
TPMO  • 1 Buf ( 3 , J I 
TPOAy  • 10  • iBUflH.JI 


OSET  INPUT  HOUR 
eSET  INPUT  YEAR 
BSET  INPUT  MONTH 
IBCf(5,j)  BSET  INPUT  OAT 


If|TPM0,EQ.2  ,ANO,  TpOAY,GE*2V»  60  TO  300  8i.E*P  DaT? 

IDATE  ■ 1000  • TPYR  ♦ JDaTEITPMO)  ♦ TPOAY  8no,  CONFUTE  JULIAN  OAtE 


If ( IOATE.eO.LOATEI  go  TO  200 
call  PUTReC 
lD*Te  ■ IOATE 
SECNXT  ■ IOATE 

call  PO  I NtR t i300 , *800  I 


WSAMf  D6Y  as  last  Rc88eST? 

BNO.  overwrite  last  fiLE  record 
esTORE  requested  date 
BSET  'MERGE*  record  POINTER 
bget  requested  'merge*  Record 


200  SOL  ■ IBuf(B,J(  ! (0.0 

If ( I BUf t 7 , J I .lT.MB  I GO  TO  2lO 
IBUf (7,JI  • I8Uf(7,J|  « M8 
GO  TO  2M0 

2 10  I Buf I 7 , J I • IBUf ( 7 , J I - I M 

If ( IBUf ( 7 , J ) ,GT. 9 I lBUf(7,J|  ■ 0 

2M0  SOL  ■ 100,0  • lBUf(7;j|  ♦ SOL 
SOLAR(ImR)  ■ mi.Sm  • SOL  / 3.6 
lChg  ■ .true. 

300  CONTINUE 
GO  TO  20 


BCOMPUTE  solar  radiation  LANGLEYS 


eCONVERT  to  wATTS/SQ. meter 
8SET  change  flag 

BGET  next  0ecK>280  INPUT  RECORD 


600  CONTINUE 

CALL  PUTReC 
wR I Te ( NwRT  ,6  10  I 

6l0  fORMATl'OENO  of 

. ' , Nf  R ■ 

STOP  0Cf280 


bend  Of  0ECK280  TAPE 
80VERWRITE  LAST  FILE  RECORD 
tape. iBLK.NTP.NfR.NfW 

TAPE  ',2A6,',  ',16,'  input  BLOCKS  |NTP  • ',I6, 
' . 16;  ' , NfP  • ' , l6  I 


...•error  message  exits 

800  «R I te I NwRT  ,8  1 0 I SECNXT 

810  FORMAT! '0»«» ION  READ  ERROR  *T  REQUESTED  DATE  ■ ',151 
call  PUTREC 


L 
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820  TE  ( NkRT  ,830  I IST*t 

830  FORMAT  I *0««»H00E  STATUS  E880R;  »,l6) 

STOP  ROSE 

eSO  R"ITE(N»RT,e60l  IBUF ( I , J I , J, I BLK ,NTP ,NFR .nFk 
SaO  format (* 0»»»M0  DECK-jeO  tape  EOF;  STATION  ID  ■ ',a5/, 
. *»X,*AT  HOUR  number  ■ ',I2|*  OF  BLOCK  *,I6, 

. *,  NTP-'.U,*,  NFR.'.U,'.  I^Fh-'.UI 

call  PUTREC 
STOP  XTPEor 


INTERNAL  subroutines 


subroutine  FILCMk 

Reads  first  data  fue  record  and  stores  file  parameters 

ISTAT  ■ 10“  I MeR<5E  , I 6 , BR  , OUT0UF  , 0 , ICOUNT  I BREAD  FIRST  RECORD 
IF|  ISTAT.EO.O  I &0  TO  20  BBAD  I/O  STATUS? 

rRITEINaRT,  10)  ISTAT  BYES. 

10  FORMAT! '0««*EILCKH  ErROR;  STATUS  • *,16) 

RETURN  0 


20  lGET  • .TRUE.  esET  VALID  READ  FL*6 

SECONE  ■ IMD2  8SET  EIRST  RECORD  POINTER 

SECEND  ■ IHDr  BSET  LAST  RECORD  POINTER 

BR  I T£ ( NBRT , 30 ) IHPI  , JH02, IHOr 

30  FORMAT!'  MER&E  PILE  STATION  NUMBER  • ',Aa,/'  LIHiT  DATES  ■ 
. ' TO  ' . IS  ) 

iF( iostn.ne. iMOl I Stop  stnId  scorrect  'Merce'  station? 

RETURN  byes. 


subroutine  PoINTR!»,fl 
Reads  requested  data  file  input  Record 


lyr  ■ 0 

IF ( SeCNXT .LT .SECONE ) return  I 

IF ( SECNXT. GT.SECENO 1 RETURN  | 

LYRS  • SECNXt  / loco 

LOTS  ■ SECNXt  - 1000  • LYRS 

LYR  ■ LYRS  • lYRI 

LOaY  ■ LOYS  - LDY; 


eiNITlALlZf  YEARS-TO-SK IP 

»IS  REOUeSTeD  date  outside  the 
0 range  of  the  data  file?  no... 
bset  requested  YE*R 
bset  requested  day 
bredefine  Requested  year 
bredefine  Requested  day 
bset  new  sector  number 


SECTOR  • 3 • !366  • lYR  ♦ l0AY|  Bset  NEW  SECTOR  NUMBER 
50  ISTAT  • IOWIMeRGe, 16. BR.OUTBUF, SECTOR,  ICOUNT)  BREAD  NEXT  RCO 
NFr  • NFR  ♦ 1 BincrEMENT  FILE  RE*0  COUNT 

IF  ! I STAT.NE.O  1 RETUrN  2 BbaO  i/O  STATUS? 

LGET  ■ .TRUE.  BnO,  SET  VALID  READ  FLAG 

iF|  iho2.eq,secnxt)  return  bfile  Date  same  aS  requested? 

|00  wRI  TE  I NWRt  . I 20  1 SECN)(T.|H02  Bno.  WRItE  ERROR  MESSAGE 

120  format  I ' o»**reQuesteo  Record  not  found  in  f ile : ' ,2  i 2X . is  i i 

RETURN  1 


subroutine  PUTREC 

WRITES  SOLAR  insolation  DaTa  TO  'MERGE'  FILE 
integer  NPUTER/0/ 

' lF( .not.lchG)  return  bcmange  flag  set? 

IFiLGET)  GO  TO  20  BYES.  READ  ERROR? 
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WBI TE |N»RT ,101 

F0RH*T  ( » 0»*«PUTREC  CrROR.*  tCMG 
NPUTCR  • NPUTER  ♦ 1 
IF(NPUTER.LE.10I  RETuRN 
STOP  PUTRtC 

IST*T  • tOR»Mt<»*C.a,§R,OUTBUF, 

NFw  ■ NFW  * I 

|F| ISTRT.eQ.OI  60  TO  RO 

MR  I TE ( NWRt , 30  ) tSTAT 

FORMAT!  *0««*F|t.E  MRItE  ERRO**; 

STOP  MRTRCO 

LCM6  ■ .False. 

lSet  - .False, 

return 


btes. 

• true , LOeT  • false*  > 

BINCREMEnT  error  count 
StOO  rant  errors? 
byes. 

sector, ICOUNT)  bRE-RRJTE  *NER6E' 
BINcREHENT  file  mRITE  COUNT 
BBAD  I/O  STATUS? 

byes. 

STATUS  ■ * , 16) 

4iN0,  RE-INITIALUE  CHANGE  FLAG 
SRE'INITIALIZE  valid  READ  FLAG 


subroutine  SK|P(il 

SKIPS  tape  records  until  a correct  Station  number  is  found 

ISKIP  - I BINITIALIZE  SKIP  counter 

KERR  ■ 0 WINITIALIZE  ERROR  COUNT 

MR  I TE ( NMRT , 10  1 

format (* OSK IP  until  correct  STATION  FOUND*) 

ISTAT  • I ONI  tape , 1 6 , I 3M ,BUFR,0 , ICOUNT ) OREAO  OECK-280  RECORD 

IBlK  ■ IBlk  ♦ I BINCREHENT  INPUT  BLOCK  COUNT 

NTP  ■ NTP  ♦ 10  BINCREHENT  TAPE  READ  COUNT 

IF  ( ISTAT. eQ.O  .or,  IsTAT.eO***)  GO  TO  50  BBaO  I/O  STATUS? 
mRITE|NMRT,30I  ISTAT. IBLK  BYES. 


forhat I *o»»»SK IP  ERRnR;  status  • ',I6,'  at  Block  ■ *,i6i 
I F ( 1ST  AT  .EQ. 1 I STOP  TPEOF  BEND  OF  TAPE? 

KERR  • KERR  ♦ 1 BNO.  increment  ERROR  COUNT 

IF(KERR.LE. 10  I 60  To  20  BtOO  many  ERRORS? 

STOP  SKIP  Byes. 

KERR  • 0 BNO.  re- I N I T I AL I ZE  EPROR  COUNT 

DEC00E(5,60.BuFR|  10  BOECOOE  TAPE  STATION  ID 

FORMAT  I AS ) 

IF ( ID.EQ,  IOStn  ) GO  TO  70  BCORRECT  DECK-28o  STATION  ID? 

IF  ( ID.EQ.  lOSTM  I GO  TO  70 
IF(  10, EQ.  I0STN2  ) GO  TO  70 

ISKIP  ■ ISKIP  ♦ 1 bno.  increment  skip  counter 

GO  TO  2q  Bread  next  oeck-2Bo  input  record 

iFcG  - I Byes,  reset  tape  file  plag 

mRITEINmRT.BoI  ISKlP 

FORMAT! ‘O****  , 16,*  RfCOROS  SKIPPED  BeFORE  CORRECT  STATION  FDUND* 1 
RETURN  I 


Bno.  increment  skip  counter 
Bread  next  oeck-2BO  input  record 
Byes,  reset  tape  file  plag 


C-ll 


• 

• 

• 

AXRt. 

CMAR 

I2M70.000I 

121970.0002 

1 22.170. 0004 
010771.0009 
0S7,07?, 

R.  DOCREN. 

R.  DOCKEN. 

R.  OOCKEN. 

R.  DDCKEN. 

12-21 

12-24 

01-07 

-7o 

-7o 

-7l 

• 

• 

• J 

■ lO*  (FiLt 

.JFVNCt.  LENQTH,  buffer. jorum,  ICOUnTI 

• 

• 4 

• 10*  ifile 

.JFV'NCT,  LEN&TH,  bUFFEH  , jorum,  ICOUNT,  |0, 

FIND) 

• 

• THIS 

prooham  Provides  4n  intepp*ce  pop  the  for  van  caller  to 

• 

• tXEC 

request  lo* 

• TO  Facilitate  random  access  on  the  orums 

AND 

• 

• F*STR*f405  *SO  TAPES. 

• 

• 

<file> 

the  p.fcORO  internal  file  name  (LJSFi  of  the 

file 

• 

• 

TO  PE  USED, 

IT  must  Be  AFSIGNeD. 

• 

• 

< jFUNCT> 

ONE  OF  the  ReC06NI2E0  I/O  CODES.  0|0«nRITE 

t 

• 

020»REaD,  and  090*REWINr/  ARE  The  MOST  COMMON 

• 

• 

ones.  others  are  0ESCR;|BE0  IN  THE  PRM  AND 

THE 

• 

• 

E*Ec  Reference  card. 

• 

• 

<LEMriTH> 

TML  HAkIMUM 

number  of  words  to  transfer. 

• 

• 

<PUFFe  R> 

the  COrE  buffer  used  In  transfers.  it  most 

BE 

• 

• 

specified  even  for  NO-DaTA  operations  life 

A 

• 

♦ 

tape  Rewind. 

• 

• 

< jDR4>i> 

the  I/O  staotIno  address  For  Random  access 

t 

• 

FILES. 

• 

• 

< I COUNT> 

THIS  Is  set 

BT  IOw  to  the  actual  number  of 

DATA 

• 

• 

KORPS  COPIED 

• 

• 

• 

<ID> 

the  sentinel 

FOR  searches. 

t 

• 

<F|ND> 

the  location 

OF  the  find  for  a search. 

• 

• the 

FUNCTION  Returns  the  status  code. 

• 

*(2| 

LIT. 

SXl  1 

♦ 

0. 

save  XII  For  debug  tracing. 

PKT 

RES 

e. 

PK 

EQU 

PKT.l  . 

• III. 

I Om* 

S 

XI 1 ,sxj  1 . 

SAVE  <xil>. 

OL 

AO. *0,1111. 

<F ILE>. 

OS 

A0,PK*1 . 

sz 

PK*3. 

CLEAR  Interrupt  codes. 

L 

AO , • I , X 1 1 . 

<JFUNCT>. 

S.TJ 

A0,PK*S, 

LXI 

AO , *2  , X 1 I . 

<LENGTH>. 
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L*" 

, 3 , * 1 1 • 

<ltOA  1 2»  1 *-2o 

U 

A 1 1 • *1  a 1 1 1 t 

< J0qU*1>  a 

J5 

*0  , r K *1,  , 

fc  a « 1 1 • 

IS  <IU,  r U0>  SPECIF  IlC7 

J 

«»  J. 

NO  1 

L 

A0a#6aJll|a 

<IO>a 

!> 

*0 , PK  * 7 . 

L.O 

AHarnT. 

EN 

lOaaf  . 

L fN? 

* 0 a P K ♦ M . 

<ICOUNT>« 

b 

*0  , .b  a 1 1 1 • 

T^,Ml 

A a > 1 t • 

IS  <10,  rla)0>  SPECIFItO? 

J 

n I r»6. 

no  1 

.T  1 

P«.  * H , 

L 

»0,a'«  ♦«, 

<F 1 N0>, 

% 

AO  a • 7 a k 1 1 a 

L.SI 

• 0 ,rr  , 

< J> . 

J 

« a • 1 • 

0 

1 

o 

• 

L.Sl 

1 ,rr»,. 

< J>  a 

J 

> a ■ 1 1 • 

• 

0 

1 

o 

1 ><0  . 
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A 


LISTMERGE 


LiSTHtROE 

LISTS  A SRCCifJCO  N(jMBeR  0^  OATS  OF  MERGE  ^JLE 

"Esther  data  beginning  at  Selected  start  dates 

c 

parameter  NROal,  NNRTbN 
real  0UTeuF(28O) 
integer  HER6E/12/ 

integer  SECEnD,  SECnON,  SECnxT,  SECOnE,  sector 
EQUIVALENCE  (OUTBUEc  1 ,n  , I”0I  ) , (0UTBUF(2.n,IH02) 
equivalence  ( OUTBuE  I 3 . 1 I . 1^03  ) . I OUTBUF  ( <4 , I | , I HON  I 
C 

SECTOR  ■ 0 «»INITIALIZE  SECTOR  NUHBER 

CALL  NTRAN( MpuGE , |0,;2 I BrewINO  'MERGE*  DATA  FILE 

call  ntram Merge .z.bn .ouTPuf, istat ,22  I bread  first  record 

I F I I ST  AT  .l7 '0  ) stop  BAOFIL  BBAD  I/O  STATUS? 

sEcone  • IH02  6no«  Save  first  record  date 

SECEND  a imOm  BSAVE  LAST  RECORD  DATE 

SECNOW  a SECone  bset  present  record  pointer 

call  NTRAN ( Merge , 1 0 . 22  I BREWINO  *merge*  data  file 

hRITEINnRt.IOI  iMOl ; IH02. INON 
10  format  I ' 1 * ,50* , ' BEAThER  oat*  for  station  '.as,/ 

. 52*.'lI**IT  dates  • '.IS,'  TO  *,I5| 

c 

so  HRITE(NNRT,60) 

AO  format (' ienter  Start  date  i^tdooi  and  no,  oe  records  to  displav'i 

REAO(NRD,70.ERR*eoO,EN0»500l  IOATE.NrCOS  BREAD  USER  REBOEST 
70  FORMAT!  I 

IE( lOATE.LE.OI  IDATe  ■ SECONE  BreQUESt  TO  PRINT  ENTIRE  FILE? 
IF(NrcOS,lE,o  I NkcDs  ■ 366  • (I  * SECEND  / looO  - SECONE  / IQOOI 
SECNXT  • IDAte  bset  'MERGE'  RECORD  POINTER 

c*LL  POiNTRi »e20,*flNr 1 sQET  requested  'merge*  Record 

c 

DO  200  Na,,N„COS  BFOR  REOUEStED  NUMBER  OF  OATS,. 

hr  I TE . NaRT , I 00  I IHU7,IHo3  BOISPLAY  RECORD  DATE  AND  SECTOR 

lOO  format  I 'oDATe  ■ *. 15.3*, ' SECTOR  a ',15) 

HRI TE I NhRt , I 1 0 ) ( OUtBUF ( I , I ) , I as,28  ) BOISPLAT  TEMP.  DATA 

1,0  format ( 7* ,' TemP  • ' , I 7F9,2 ,/ INX  , I 2F9,2  ) 

HR  I TE ( NhRt , I 2J ) (OUtBUF(  I ,21 , Ia5,2e)  BOISPLAT  HIND  DATA 

120  format ( 7X ,' HIsO  • ' , 1 2F9.2 , / I N* , 1 2F9,2 ) 

HRI TE I NhRt , I 30  ) (0Ut8UF( I ,3) , Ia5,2rt)  BOISPLAT  INSOLATION 

130  F0RMATI7X,'8ST  ■ * , 1 2F9,2,/ IRX, 1 2F9,2  ) 

C 

ISO  CALL  NTRASI Merge ,2 ,8n ,0UT8uE, I STaT  ,22  ) bread  next  record 

1F| ISTAT,£Q,.2)  go  to  90n  bend  of  'MERGE*  FILE  ENCOUNTEREO7 

IF( ISTAT.LT.O)  go  Tc  890  8N0,  BAD  I/O  STATUS? 

IE( IHD2.Gt.SeCEN0  I GO  TO  900  BNO,  ILLEGAL  DATE  REQUESTED? 

ITR  • 1000  • lEIXl  IHD2/I000)  BNO,  DETERMINE  RECORD  TEAR 

IF( ImD2>ITR,GE.366  I GO  TO  ISO  BSKIP  RECORD  IF  DAT  a 366 
200  CONTINUE 

SECTOR  ■ IMD3  ♦ 3 BSET  SECTOR  NUMBER  TO  NEXT  RECORD 

SECNOH  • IMO2  ♦ 1 BSET  'MERGE'  POINTER  TO  NEXT  RCO 

GO  TO  SO  BGET  NEXT  USER  REQUEST 

C 

SOO  STOP 

c 

CPaaaaeRROR  MESSAGE  EXITS 


5040-27  (Change  1) 


•00  STO^  input 

• 20  MR|TeiNHIIT,030  t I OAtC • secqne , SeCENO 

•so  rORN«TI*O*«*NE0UESTEO  OATE  (*ilS.'l  IS  OUTSIDE  RAn6C  OE  *, 
. *NEN«E  EILE  I'IS.«.«iIS,')'I 

STOE 

•SO  NRITEINWRT.SSOI  SECnXT 

• SO  E0RNATI*0«**NTNAN  IIEtO  EimoN  AT  DATE  ■ «.ISI 

STOE 

•00  STOE  EOE 


>••••••••••••••••••••••  Internal  suoroutines 

subroutine  EOlNTR(S,St 

Reads  requested  oat*  eiue  ineut  record 


lTr  • 0 

call  NTRAN|NER6E,20(iSTAT) 

|E|  ISTAT.lt. 0)  RETUiiN  2 
|E|SCCNXT.LT.SEC0NEI  return  I 
|E(ScCNXt«6T*SECEND|  return  I 
|S|SN  • I 

|E|SECNXT.SECN0W|  to;S0.20 


eiNITlALlZE  rCARS«TO«SKlE 

owAiT  AND  Unstack 

BBAO  I/O  STATUS?  NO... 

sis  reQucSTco  Date  outside  the 
B ranse  oE  the  Data  eile?  no*** 
BINITIALZE  date  ELAfi 
BREQUESTeD  OATE.LT/EQ/CT.ERESENT 


ID  |S|«N  • >1  Bsc 

20  ITRS  a SECNXT  / 1000  BSC 

LOaT  ■ SECNXT  • 1000  • ITRS  BSC 

|TR|  ■ SECNON  / 1000  BSE 

LOT  ■ SECNON  > 1000  • ITRt  BSE 

I YRS  • ABSI ITRS  * ITri  I 
LOaT  ■ ISI6N  • ILDAT  . LOT)  BRE 

|E( I TRS.EOtOl  LOAT  ■ ABS|LD*Y| 

|E(  ITRS.NC.Ol  LOAT  ■ ABSOaA  • LDATi 
|E(  ITRS.NE.Ol  LYR  • ITRS  • I BRE 


BSET  OATC  ELAS  prior  TO  ERCSCNT 
BSCT  REQUCSTCO  TEAR 
BSET  REQUCSTCO  OAT 
BSCT  ERESCNT  tear 
BSCT  present  DAT 


BRCOeEINE  requested  DAT 


brcdeeine  Years. to-skip 


30  NEXT  a 3 • ISt«N  a (34*  • lYR  * lOAT  ) BRe0CE|NC  POINTER 

SECTOR  ■ sector  * NEXT  BSET  NCN  SECTOR  NUNBeR 

SECNON  ■ SECNXT  BRCOCEINe  EreSCNT  OAT 

call  ntr*n(Ner6C.4,nexti  bposition  To  REQUCSTCO  Record 

so  call  NTRAN(NER6C,2.Bs.0UTauE, ISTAT,22)  BreAD  NEAT  3 SECTORS 
|E| ISTAT.LT*OI  RETUrN  2 BBAO  I/O  STATUS?  NO... 

|E| IMD2.NC.SECNXTI  60  TO  |00  BflLE  OATC  SANE  aS  RCBUCSTCD? 

return  BrCS* 

lOO  ir (SECNXT. LT. lOOOl  RETURN  BSTATISTICAL  FILE? 

NR|TC|NNRt.I20I  SECNXT. IH02  SNO.  NR|tC  ERBOR  NCSBA6C 

120  fornati •o«**rcbuestco  Record  not  found  in  filci'.zizx.isi  i 

STOF 
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- ■ /Vtf’r-l 


APPENDIX  D 


I 

f 


STAT  PROGRAMS  LISTINGS 


I 

I 


1 

i 

I 

I 


D-l/D-2 


ST*TS 

PCRfORMS  statistical  ANALTSjS  OF  *ncR«E*  FILE 

Weather  data  ano  outputs  a 'Stat*  data  file 

parameter  LHRfia},  LmYR*3A6*LHRG,  LSTaR.  LSTR.34««LST 
parameter  NR0«3,  NWrT-S,  NTRS«12,  Nyx2«2«NTRS 
REAL  SUFR(2a.3).  MBuF(2a.Ml.  0UTBUFl2atRi 
real  QI2H).  TI2<«|,  V(2‘t)i  TMAX|NTRS|,  TNININYRS) 

INTESEP  IMB(it),  IHMiHli  IHO(*t),  lLMD|NYX2>i  JLMD|2I 
INTESEP  MDATCI  12  l/3i  .59,90,  |2o,  |S|  , isi  ,2t2,2<«3.273,30P,33<l,: 
INTESEP  MEP6tl2l/*li','  */i  HSTaTi2I/‘U'.'  '/ 

INTE6EP  NLH|mYRS,3>,  NLH0H(29,3|,  NY(3I 
equivalence  |BUFR( 1 ' 1 I . IHBI I 11 . (BUFRIS, I I ,T| I I I 
equivalence  (BUFRIS  2) • V( I > I • (BUFR|S.3I,QI I I I 

equivalence  (MBUFI 1 , 11 , IHMI I n , lOUTBUFi I , 1 I , (HOI I > I 


DO  10  laliNYRS 
TMAX( 1 ) ■ .lOOOtO 
THIN(I)  ■ lOOOtO 
JSECTR  ■ 0 

ISTAT  ■ I0W|MeR6e,IA;B9,BUFP 
I^I ISTAT. NE. 01  QO  To  900 
NYEARS  ■ 1 * 1HB(>I)/|000  • I 
WRITEINWRT  • I 10 > IHBiII.IHBI 
FORMxti* ISTATISTICAL  analysi 
. • limit  OATeS  • * ,I 

. * time  span  • »,I2» 

H ■ 0 

call  MONTHiB^jO) 

IHMIi)  • IHB(il 
IHOIll  ■ |HB(il 
IHMIH)  ■ 12 

IHOIAI  ■ 34* 


00  550  lOAYal .364 

ISeCTR  - IABSiLMRO  • (IDAY  - II) 

DO  3S0  J>S.2S 

00  3S0  K-l.H 

OUtBUFU.KI  • 0.0 

IH0I2I  ■ lOAY 

|H0(3I  ■ IABSiLSt  • (IDAY  - |M 

00  390  J*1.2>t 

00  390  Ka),3 

NLMDH|J,K)  • 0 

00  9B0  J-|.NrX2 

ILMOUI  • 0 

DO  590  U-1.2 

JLMOIJ)  ■ 0 


aiNiTlALiZE  yearly  maximum  temp 
BINITIALIZE  yearly  minimum  temp 
filNlTlALlZE  *MEP6C«  SECTOR  PqINTr 
.JSECTR. ICNT)  BbeAO  iST  »MEPfiE'  PCO 

bbao  I/O  status?  no... 

HB(2)/I000  ^number  of  'MEPSE*  YRS 
2)  . 1hB|9  I .mYExRS 
S FOR  STATION  NUMBER  '.AS./ 

5,»  TO  *.15./ 

* years*) 

BINITIALIZE  MONTH  COUNTER 
BINITIALIZE  monthly  STATISTICS 

BSTOPE  *stat*  Station  number 
bstore  ‘stat*  last  month 

BSTORE  *STAT*  LAST  DAY 

bfor  each  Day  of  the  >5An,., 

Ill  bset  Primary  *mcr5f.*  sector 


BINITIALIZE  hourly,  OAILV  STATS 
BSTORE  *STAT'  OAT  INDEX 

BSTORE  'STAY*  SECTOR  NUMBER 


BINITIALIZE  hourly  STATS  COUNTER 
BINITIALIZE  DAILY  STATS  COUNTERS 


DO  390  Ja|,NrEARS  BFOR  EACH  *MERQE'  YEAR... 

JSECTR  ■ IABSi ISECTR  ♦ LMYR  • IJ  - |)|  BSeT  'MERQE*  PCD  SECTOb 
ISTAT  ■ IOMIHERBE. |6;B9,BUFR, JSECTR, ICNT I BreAO  'MERCE*  RECORD 
|E(  ISTAT. NE.OI  QO  To  900  BBAO  I/O  STATUS?  NO... 

00  390  K*|.29  bfor  EACH  HOUR  OF  THE  OAT... 

IPITIKI.LE. •1000.01  QO  TO  240  ByALlO  TEMPER ATURE?  YES... 

TMAXU)  ■ ANAXI  ITMAXj  J|  .TIKI  ) B6ET  MAXIMUM  YEARLY  TEMPERATURE 


D-3 


n o o 
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*10  rOHMATI  * I ' I 

00  «S0  laldJ  0FOR  CACh  HonTH.o 

JStCTR  ■ LSTR  ♦ LST  • ll  • 1)  BSCT  'STAT*  MONTH  SECTOR 
ISTAT  • ION«HSTAT,l4,n2,HBUT,JSECTR,|CNT(  BREAD  MONTH  RCO 

t^<  iSTAT*NE*0)  6o  To  BBAO  I/O  STATUS?  NO*.* 

HR| TC INNRT 1*30  I « iHmIJ I • J>2*3) , ( (mBuF IU*Kl*J"SilS)tK>l(3) 

*30  rORH*T(  *OHONtm  • sector  • »,l**,/ 

. ?X,*TEHf  • « . |2rB.2,SX,2rB*2,/ 

. 7X,»HIN0  • ' . (2FS,2,5X,2FS*2./ 

. 7X,*80T  ■ '•|2F8*2,SX,2F8*2I 

4S0  CONTINUE 

750  JSeCTR  • 0 BINITlAtiZE  »STAT»  SECTOR  MOINTEr 

IStAT  ■ lONCHSTAT, j*. 1 12,0UTBUF, jSECTR, ICnT)  bBERCAD  1ST  *STAT* 

|F( ISTAT.NE.OI  BO  TO  9N0  BBAD  I/O  STATUS?  NO,.. 

HN  • 0 BINITIALIZE  YEARL?  COUNTERS 

HX  ■ 0 

00  760  t-t.N 

760  0UtBUF(|.2I  " 0.0  BINITIALIZE  YEARLY  STATISTICS 

770  00  BOO  l■|•NYEARS  BrOR  EACH  *MEB6E'  YEAR**. 

7B0  IF(ThiN< I I.SE.IOOO.O)  60  TO  7*0  BVA|,|D  HINIHUM  TEMPERATURE? 

0UTBUF|1,2I  ■ 0UTBuF||*2)  * TH|N|I)  BYES*  SUM  M|N*  TEMPERATURES 

0UTBuF(2,2I  - 0UTBUF(2t2>  * THIN(I|*»2*0  BSUH  MIN.  TEMP,  SQUARES 

MN  ■ MN  • I BINCREMENT  yearly  min.  COUNTER 

7?0  lElTMAXi 1 ),LE,-1000.0>  ‘•0  TO  BOO  BVAlID  MAXIMUM  TEMPERATURE? 

0UTBuFi3,2t  ■ outbuF(3,2)  ♦ thaX(||  Byes,  sum  nax,  temperatures 

OUtBUF  (.N  ,2  I • 0UTBUF(N,2»  ♦ TMAX(1|»*2.0  BsuM  MAX.  TEMP,  SQUARES 

MX  • MX  ♦ I BincREMl^t  yearly  MAX,  COUNTER 

BOO  CONTINUE 

IF(MN.6t.0|  0UTBuF(|,2)  • OUTBUFIItZ)  / MN  BC^MMUTE  YEARLY 

jFlMX.QT.OI  oUTBuFI3.2|  • 0UTBUF(3,2|  / MX  STEMMEBaTurE  MEaNs 

810  1F(MN,GT.1I  0UTBUFI2.2I  • SQRT H OUTBUF ( 2 , 2 I • MN  • 

, OUTBUFi 1 .2)»*2,0>  / (MN  • 111  QCOmPUtE  STANOARO  DEVIATION 

IF(NN,LE.1I  0UTBuF(;,2I  • 0,0  S FOR  MINIMUM  TEMPERATURE 

IF(MX,6T,II  00TBuF(i(,2l  • S(iRT  ( ( OUTBUF  ( •» , 2 I - MX  • 

, 0UTBUF(3.2I*»2.0I  / (MX  - 1||  BCOMPUTE  STANDARD  DEVIATION 

IF(MX,LE.1I  0UTBuF(m,2I  • 0,0  B FqR  MAXIMUM  TEMPERATURE 

820  nyears  ■ mino(Mn,mxi  bcompute  number  of  valid  years 

0UtBUF(i,3)  • FL0AT( nYEARSi  BSTORE  »STAt»  VALID  YEARS 

NSeCtR  • JSECTR  *SET  ‘STAY*  SECTOR  NUMBER 

ISTAT  • I0M(MSTAT, 8, il2,0UTBUF, NSECTR, ICNTI  BmRITE  »STAT'  RCO 

1F|  ISTAT.NE.OI  <>0  To  ?20  BBAD  I/O  STATUS?  NO... 

MRITEINWRT iBMOI  NYEaRSi ( TmINI 1 ) , lal .NYRSi .0UTBUF| I i2| . 

, 0UTBuF(2,2I ,(TmAX(I),I»1 ,NYRSI ,OUTBuF( 3,21 , OUTBuF ( N , 2 I 

BMO  FORMAT! * IYEARlT  STATISTICS:*,/  SDlSPLAY  YEARLY  TEMPERATURE  STATs 

. ix,i2,»  valid  years  of  data  found*,/ 

. 7X,*TmIN  • * ,i2F9,2,/ 

. 7X,*MeaN  thin  ■*,F9,2,*  TMIN  STANDARD  DEVIATION  *,F»,2*/ 

, 7X,*TMAX  • *,i2F9,2,/ 

. 7X,*MeaN  TMAX  •*,F9,2,*  TMAX  standard  deviation  ♦,F»,2» 

STOP  STATS 

••••error  message  exits 

900  MRITE(N*(RT,9ioI  JSECTR, ISTAT 

9|0  FORMAT!  *0««*MCROC  F|[.C  REaO  ERROR  AT  SECTOR  ■ ',I6, 
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• »:  status  • •,i2i 

STOP  RCAO 

«20  MR|TC|N«Rt,930I  NSCcTR.ISTAT 

*30  F0*HATI*0*««ST*T  PILc  MRITE  error  at  sector  ■ *.U| 

. ♦;  status  • '.iJi 

STOP  WRITE 

«*0  WR|TE<NWRT.*S0I  jsectr.ist*t 

*S0  rORNATI*0«««ST«r  FtL|  reread  error  at  sector  ■ '.lAi 

• *:  status  - '.iTi 

STOP  REREAO 

c 

c***********************  internal  subroutines  •••••••••••••••••••••••• 

c 

subroutine  NONTHiBI 

C COPPUTES  HONtNLT  statistics  ANO  writes  then  into  'StAT»  file 

c 

S*0  |P|H.LE.0|  60  TO  72o  S 1 N I T I AL I Z AT  I ON  0NLT7  NO... 

00  700  L*l.3 

DO  S90  N«|.NTEARS  6T0R  EACH  'NER6E'  YEAR.*. 

S70  |F|NLN|N,i.I.6T.0I  6o  TO  SflO  BINVaLIO  DATA? 

HBur|N«*,LI  - -1000*0  BYES.  FLA6  INVALID  DATA 

60  TO  S*0 

sao  NBUr|N*R.LI  - MBUF(N*h.L|  / NLMIN.D  Bno.  CONPUTE  HEAN  of  data 
nBUF|NTRS-S.LI  • HB0F(NTRS*5,L I ♦ NBuF|N*h,L)  bsuh  yearly  data 
nBuF|NTRS«a,LI  ■ NaUF(NTRS*A,L»  * HBuF  | N*it  , L ) aaj.  0 ^SUH  SQUARES 

NT|H  • NTiLl  ♦ I BincRENENT  YEARS  COUNTER 

S*0  CONTINUE 

*00  |F|NT|LI,6T.0I  QO  To  620  BINVaLIO  YEARLY  SUN?  YES... 

nBuF|NTRS«S.LI  * -iOqO.O  BFLAG  invalid  NonTHLY  data 

nBUF|NTRS»6.LI  • -lOoO.O 

ntil)  • I bredefine  Year  counter 

620  nOuF|NTRS*S,L»  * NBUf ( NTRS^S , L I / NY(LI 
|F(NV|LI.6T.|  I HBUF|NTRS«6iLI  ■ 

. SORT! |NBUF|NTRS«6^LI  - nY(LI  • HBuF « NYRS*S , L I ••2  * 0 I / 

. INVIL)  -III  BcOHPUTE  neans  over  all  years 

700  |F|NT(LI*lE*I  I NBUF|NYRS«6*L  I > 0.0 

c 

7|0  JSCCTR  ■ LSYR  * LST  • (N  • ||  BSET  'STAY*  NONTH  SECTOR 
|HN(2I  • N BSTORC  'STAT'  NQNTH  INDEX 

IHNI3I  • JSECTR  BSTORE  »STAT»  NOnTM  SECTOR 

ISTAT  ■ IOW|NSTAT,B,il2,NBuF,JSECTR, ICNTI  BkRITE  MONTHLY  STATS 

IF| ISTAT.NE.O)  Return  ■ bbad  t/O  status?  no... 

c 

720  DO  710  L-1.3 
nY|LI  • 0 
00  730  N«|,NTnS 
730  NLHIN.LI  - 0 
00  7*0  N-S.28 
7*0  hBuFin.L)  ■ 0.0 

N • * ♦ I 
RETURN 


BINITIALIZE  YEAR  COUNTER 

BINITIALIZE  NONThLY  COUNTER 

BINITIALIZE  monthly  STAYS 
BINCRENENT  NONTH  COUNTER 


C 


end 
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P«0riLE 

HOOIFIES  'ST*T*  file  data  ('HERGE*  file  statistical  DATAI 
Pin  USER  REQUIRehENtS  to  PRODUCE  A 'PROFILE'  DATA  BASE 
FOR  USE  rITH  the  OSpA  PROGRAP 

parameter  LPR-3,  LSt-R,  LSTR»3aa*LST,  NR0«3,  NRRT-H 

double  precision  AWcOI,  BDll,  FCT,  LAMBDA,  PSUM,  X 

REAL  BUFR(28,RI,  H8uF<2S,R>i  OUTBUF ( 2* • 3 > f PwC I 3 ) 

real  Ol2<4lt  00117),  0MI2I,  Tl2<l|,  TM(2>,  V<2RI»  VD||2).  VM(2I 

real  ZTABLE I S0i2 I/O. S000,0 1 5398, 0.5793,0^5*87 10.4179,0.4348, 

. 0 ; 6SS<4, 0 1 4734,0. 49  |S,  0.7088,0.7288,0. 7922, 

. 0,7880,0,7739,0.7881 ,0.8023,0.8159,0.8289, 

. 0.8913,0,8831,0,8493,0.8799,0.8899,0.8999, 

. 0.9032,0,7118,0.8192.0.7245.0,9332,0,8399, 

. 0,9952,0,7508,0,9559,0,7599.0,9491,0,7478, 

. o;97l3, 0,7773, 0,7821 .0.7861,0,7893,0.7918, 

, 0,9938,0,7960,0,9970,0,9978,0.9987,0.7999, 

, 1.0000,1,0000. 

, 0,00,0,10,0.20,0.25,0.30,0.35, 

. 0.90,0.95,0,50,0.55,0.60,0.45, 

. 0.70,0.75,0.80,0.85,0.90,0.75, 

. 1.00,1.05,1,10,1.15.1.20,1.25, 

. 1,30,1.35,1.90,1.95,1.50,1,55, 

. 1.60,1.65,1.70,1.76,1.80,1.85, 

. 1.90,2.00,2.10,2.20,2.30,2.90, 

. 2.50,2.65,2.75,2.86,3.00,3.60, 

• . 9.00,1000,0/ 

integer  1013)/'  ' ,*W|N0' ,'QOT  '/,  1 0 1 ST | | 2 , 3 1 , 3 ) , IH0I9),  LH|6I 
integer  MOATEI 13 1/1 ;32. 60. 7l ,|2| , I 52, 182,213,299,279,305,335,346/ 
integer  HPR0FLI2)/* i2' ,'  HST AT | 2 I / * 1 1 ' , * */,  NOAT 1 3 I / | 9 , 9 , 1 9/ 
NAMELIST/INPt/  alphas, alpha T, alpha V,ALRNHV,ALPHL8,ALPHLV, 

. LH,PHv,PLO,PLV,PQ,PT,PV/ 

equivalence  (BUFRI I j I ) , IH0< I I I , (BUFRI5, 1 I ,T(  1 ) I 
equivalence  |BUFR(5,2I ,vi I I ) , IBUFR|5,3I ,QI 1 I I 
equivalence  |BUFR|3,9I,VDAT|,  | BUFR | 9 , 9 ) , QOA Y ) 
equivalence  |BUFR|5,9I  ,V0t I I I , iBuFRi |7,9l ,Q0l 1 I I 
equivalence  (Bufr(i;i),outbufh,ii),  imbupi  i7,  i i ,th(  i n 
equivalence  (HBuFI 17.21 ,VNI I I ) . (NBUFI 17,31 ,QN| 1 I I 

JSECTR  > 0 BINITIALIZE  INPUT  SECTOR  NUMBER 

N ■ 1 6|N|TIAL|ZE  month  counter 

ISTAT  • IOWIHSTAT,l6;il2,BUPR, JSECTR, ICNTI  BREAD  FIRST  *STAT» 

IP( ISTAT.NE.O)  QO  To  820  BBAO  I/O  STATUS? 

TEARS  ■ BUFR|1,3|  Bno#  STORE  NUMBER  OF  TEARS  USED 

ITRS  • IFIXIYEARS) 

NR|TC(NNRT,20I  lHOli),lYRS 

20  FORNaTI'ISTATISTICAL  profile  FOR  STATION  ?,A5,*  (',l2,*  TEARS)'//) 


too  00  300  IOaT  ■ 1,366 

|P| IOAT.NE.NOaTEIM) ) GO  TO  200 
iPlLNC.QT.O)  CALL  NrSTCS 
REAOiNRO, |NPT,ERR"80o,ENOa800| 
LNC  • LHlHI  ♦ LM(5)  ♦ LHI6I 
ANCIl)  • ALPMlQ 
ANC(2»  • ALPHLV 
ANCI3I  • ALPMMV 


BFOR  EACH  OAT  OF  THE  TEAR... 

bfirst  oat  of  month? 
byes,  ADO  *N0RST  CASE'  OatA 

Bread  user  input 

BSET  'MORST  CASE'  FlaQ 
bstore  lom  radiation  confidence 
BSTORE  LON  WIND  CONFIDENCE  LEVEL 

Bstore  high  wind  confidence  level 


D-7 


d 
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p»»cm  • PL® 

P0C(2|  > PLV 

• PMV 

C*Lt  TOLt««*LPH»T,^T’CTl 
C*LL  TOL£R|»tPH*¥,P¥  CWI 
CALC  TOLER« ALPM»Q.P«,CQ» 
JScCtR  ■ LStR  ♦ LST  • |M  - »• 


B5T0RC  LO*  Radiation  proportion 
eSTORt  LO**  wind  proportion 

esTORC  HI6H  WIND  PROPORTION 
BTEHPtRATWRC  TOLEPANCE  FACTOR 
BwIND  velocity  tolerance  FACTOR 
bsolar  Radiation  tolerance  factor 

BSET  ’STAT*  MONTH  SECTOR 


ISTAT  • I0NCMSTAT,IA;iI2,«6«F,jseCTR,ICNTI  BREAD  »STAT*  MONTH 

|F|  ISTAT.NE«OI  So  To  SRO  BBAO  I/O  STATUS?  NO,,, 

OLMT  ■ LH(ii  • CT  • tNI2)  B«eT  LON/HIGm  OeLTA/SCALE  FACTORS 

RLHV  • 1*0  ♦ lH(2)  • C»  • VMl2|  / VM(l» 

RLHB  > 1*0  * lNI3|  • cQ  * / QMIII 

mriteindrt, 1201  m.oCmt.rlmv.rlhq  boisplay  monthly  parameters 
120  F0RMATI‘I»«»F0R  month  •,l2,'t  OELTA/SC ALE  . F ACTORS  •',/ 

, ?*,*tehp;  •,f*,r,*  bind:  'tFA,**,'  oot:  'iFa.ri 

MRITEINWRTt INPT) 

WRITEINhRT, isoi 
iso  FORMAT)////! 

M ■ M * I BINCREMEnT  month  counter 

200  JSECTR  ■ IABS)LST  • (lOAY  - III  BSET  »STAT*  SECTOR  NUMBER 

ISTAT  ■ lONIMSTAT, 14, I I2,BUFR, JSeCTR, ICNT I SREAO  »STAT'  RCO 

IF( ISTAT, NE*OI  Bo  To  820  BBAO  I/O  STATUS?  NO,,, 

00  210  I»l,2<*  BfOR  each  HqUR  OF  THE  DAY... 

IF(T| I I,6t,-I000,0I  Till  ■ BMQOIFT  TEMPERATURE  OATA 

. Tin  ♦ OLHT 

1F( V( I I,Ge,0.0I  VIIj  • RLHV  • V«l|  BMOOIFY  N|N0  VELOCITY  OATA 

210  IF(0I  I I.GE.O.OI  Odi  ■ RLHO  • Q|l|  BMOOIFt  INSOLATION  OATA 

ISECtR  ■ IaBsiLPR  • (IOaY  . til  BSET  'PROFILE*  SECTOR  NUMBER 
|H0)3I  • ISECTR  BsTOrE  OUTPUT  SECTOR  NUMBER 

ISTAT  • IowimpROFl.bIbr.OUtBUF, ISECTR, ICNTI  BNRlTE  'PROFILE' 

IF ( ISTAT.NE’O I CO  To  >*0  BBAO  I/O  STATUS?  NO... 

pRITEINWRT  dHO I IH0( 2 I . IHO*  3 I • I I OUTBuF) l.Jl.l*S,28l,ja|.3) 

2<»0  FORMATI'OOAY  . ',13,7  SECTOR  . ' , I M , / 

. TX.'TemP  ■ ' ,j2F9,2,/MX,  l2F?,2./ 

. 7X,'NIN0  • ' , i2F9,2,/****.  |2F9,2,/ 

. TX.'QOT  • ' ,i2F9,2,/IRX,l2F».2l 

|F|LPC,LE.0I  60  TO  3OO  B'NORST  CASE'  PROFILE  RE8UESTED? 

J ■ IOAY  . MoaTE|M.1)  ♦ j BtES,  compute  OAT  OF  MONTH 

00  270  I«I,IYrS  BcHecX  'WORST  CASE'  DATA... 

IFIJOI I |,LT.O,0l  60  TO  240  BeRRONEOUS  INSOLATION  DATA?  NO,,, 

80Y  • PLQ  • (lYRs  • OOAY  - 00(l||  / IlYRS  - II 

ifiqd) I i.le.odyi  ioistii,jiIi  ■ I blow  Solar  radiation  period 
60  TO  270  BeRRoNEOUS  WIND  DATA?  NO,,, 

• vOAY  - VD|  I n / 1 I YRS  • 1 I 
|0|ST|I,J|2|  ■ I 

• vOAY  - VDI n ) / 

I0lST|I,Jl3l  ■ I 


240  |F| VO) I I .LT.0,0l 
VOY  • PLV  • II YRs 
|F| VD( I I.LE.VOYI 
VOT  * PHV  • I I YRS 
|F| V0| I I .6E*VDY I 
270  CONTINUE 
300  CONTINUE 


blow  wind  velocitt  period 
I IYRS  • II 

BHI6H  WIND  velocity  PERIOD 


SCO  |F(LHC.6T,0I  call  WrSTCS  BaOO  'WORST  CASE'  DATA 

JSECTR  • LST  • 345  BSET  LAST  'STAT'  OAY  SECTOR 

ISTAT  • IOWIHSTAT, 141112, BuFR, JSECTR, ICNTI  BREAD  LAST  'STAT' 

|F| ISTAT. NE*0)  60  To  "^O  BBAO  I/O  STATUS?  NO... 

ISECTR  • LPR  • 345  BsET  LAST  'PROFILE'  OAY  SECTOR 

|H0|3)  > ISECTR  BSTORE  OUTPUT  SECTOR  NUMBER 


|ST*T  ■ J 0W(  HPROFl  . 8*  S'*  • OUTBUF  , ISECTR  , ICNT  » BkRITE  '^ROEILE' 

1E(  ISTAT.NEtO)  SO  To  8*0  88*0  I/O  STATUS?  NO,,, 

IH0(2)  ■ 9f?9»  BsET  ENO-OF-FILE  RECORD  HARK 

ISeCTR  • lRR  • 36*  BSET  ENO-OF-FILE  sector 

IHDI3)  • ISECTR  8ST0RE  OUTPUT  SECTOR  NUMBER 

IStAT  • I ON ( MRROFl , 8' 89 .OUTBuF , I SECTR , I CNT I BNRiTE  EOF 

1F(  ISTAT.NE.O J 60  To  860  BbAD  I/O  ST*TUS? 

STOP  PROFJL  *N0, 


•error  nessase  exits 


800  HRtTE(NNRT,8|0l 

8l0  FORMAT! *0**»ERROR  IN  PROFILE  USER  INPUT  FOR  MONTH  ',I2I 
nRI  TE ( NWRT , I NPT ) 

STOP  INPUT 

820  nRITEINPRT.BJo)  IO*v,JS£CTP 

830  format  I '0»*»ERROR  IN  REAOInS  STAT  DAY;  DAY  "'.IR,*,  SECTOR  -'.IS) 
STOP  STAT 

890  NR1TE(NNRT,850)  P.JsECTR 

8S0  FORMAT! '0»««ERR0R  IN  READING  STAT  MONTM;  MONTH  •',13, 

, ' , SECTOR  , IS) 

STOP  MONTH 

860  hR1TEINhRT,870)  IOAy.ISECTP 

670  FORMAT! »0»6»ERP0R  !N  NRITINS  PROFILE  0*Y;  DAY  •',19, 

. ' , SECTOR  -' l6  ) 

STOP  WRITE 


internal  subroutines 


subroutine  TOLER) A,P,CLI 

COMPUTES  inverse  NORMAL  ER^^OR  FUNCTION  AND 

Returns  tolerance  limits  factor 

z • AMAXl |A,I.O»*l  BiNVEPSE  ERROR  FUNCTION  FOR  )-* 

CALL  SLUP( Z,Z*,F00T, ZTABLE! 1 • 1 I ,ZTa8lE! 1 ,2) iSO, 1 ) 

IF  I *,GT.O.SO  ) Za  • .Z* 

z • AMAx 1 ( p, 1 ,0-p » binveRSe  error  function  For  p 

call  SLUPi Z. ZP, foot, Z table  ! 1 , I ) , ZTABLE! 1 ,2 ) tSO, I) 

IF(P,LT.0,50)  ZP  • -ZP 

AL  • ItO  - Za**Z«C  / !2.0  • !YE*RS  • ltO|l 
BL  • ZP»«2,0  - Z*»»2,0  / years 

CL  ■ !ZP  ♦ SqrT!ZP»»2.0  - *L  • BLl)  / *L  BTOLERENCe  FACTOR 
return 


subroutine  wrstcs 

ADOS  'WORST  CASE'  OaT*  TO  P*ST  PROFILE  MONTH 

iF(  iday,le. 1 1 return  bfirst  o*y  OF  year?  no,., 

N • M - I BsaVE  past  month  FL*6 

noys  • moatE(Mi  - moatE(Ni  bset  number  oF  Days  in  month 

WR I TE I NwRt  , 10  ) N 

10  format  I ' I *»»W0RST  CASE  oat*  CHANGES  FOR  MONTH  ',121 

DO  500  Ka|,3  BfoR  each  'WORST  CASE*  VARIABLE.. 

IF(LM!K*3I,E8,0I  so  to  300  B.WORST  CASE'  ANALYSIS  REQUESTED? 

cnt  • 0.0  Byes,  initialize  poisson  counter 

SUM  ■ 0.0  B|N;tIAILIZE  POISSON  SUM 

00  60  I»I,IYRS  bfor  each  year... 

DO  60  j^i.nots  Bfor  each  day  of  the  month.,. 
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SUM  • SUN  * I0IST(tij«K|  BcOHMUTC  MOisSON  SUM 

|F| lOlSTI I • JtK I 'CQiOi  GO  TO  40  SCOOO  Day? 
lF(J.ea.U  GO  TO  so  BNO,  first  oat  of  month? 

iFilDlSTII.J.l.Kl.CQ^l)  GO  TO  aq  SNO.  BaD  OAY  AFTER  BAO  0AT7 

SO  CNT  • CNT  ♦ I BNO.  INCREMENT  FOISSON  COUNTE* 

40  CONTINUE 

lambda  • (SUM  • CNTi  / CNT  BSET  FQISSON  LIKELIHOOD  ESTIMATE 

|00 


120 


ISO 
140 

200  KOAT  ■ MOATEiNI  « NOaTIK)  • |NR  . ()  / 2 

KOaT  • MAXOIKOAT.MOAyEINI)  bset  bao  oata  start  date 

K*  • 2 bset  variable  selector 

IF  I K.EO. I I KX  ■ 3 

DO  270  I-I.NR  BfOR  each  BaO  OAT»*t 

joat  ■ KOAT  *1-1  Bset  *stat*/*frofile*  date 

JSeCtR  ■ |A8S(LSt  • (JDAT  - 1||  BSET  *5TAT*  SECTOR  NUHBER 
ISTAT  - ION(HSTAT.14,ll2,RBUF,JSECTR,tCNT)  BREAD  ‘STAT'  RCD 

|F| ISTAT.NE.u  I SO  To  B20  BBAO  I/O  STATUS? 

ISeCtR  • IABsiLPR  • (JDAT  .111  Bno,  SET  ‘PROFIlE*  SECTOR  NUMBER 
IStat  ■ IOB|«PROFL.l6.8*»,ouTBUF,iSECTRtlCNTI  BREAD  'PROFIL*  RCO 
|F| ISTAT. NE. 01  SO  To  BRO  BbAO  I/O  STATUS?  NO... 

DO  210  .‘'>S,28  BfOR  EACH  HOUR  OF  THE  DAY... 

|F  (OOTBUF  (JiKX  I •LE«~lOOO.O  I Go  TO  2‘«0  BgoOO  DATA?  YES**. 

IF(K.LT.3|  OUTBUFU^KX)  ■ BcOMPUTE  LON  'PROFILE*  DATA 

. AMIN  I IOUtBUFi J.KX I ,PMC(K  t aMBUFI U.KX I | 

IF|K.E0.3|  OUTBUFIJ.KXI  - BcOMPUTE  HIGH  'PROFILE'  OATA 

. AHAX| IOUtBUF I J,KX| , PWC | K | aMBuF | U , K X I | 

2R0  CONTINUE 

IStat  - iopi mprofl.b.br.outbuf, isectr, icnt i «»rite  'profile* 

|F I ISTAT.NE.O  I SO  To  840  BbAO  I/O  STATUS?  NO... 

HRITE(N|iRT.260|  IH0(2| .|H0(3| tIDIKXl , « OUTBUF | J .K X | .J-S,28| 

240  FORMATI'OOAT  • ',13,'  SECTOR  - ' , I R , / 

. 7X,AR,'  • *,12F?.2,/1R*.12F9.2I 

270  CONTINUE 

300  DO  ROD  1-1,12 
DO  ROD  J-l,3l 

ROO  lOlSTII.U.KI  > 0 BIERO-FILL  POISSqN  TABLE 

SOO  CONTINUE 
RETURN 

B20  HRITEINHRT.B30I  JOAy.USECTR 


r 


FCT  ■ l.CDO 

DO  120  •/■l.NOYS 

FCt  • FCT  • J 

BUI  ■ LAMBOA--J  / FcT 

PSUM  - oexpilamboai 

X - l.ODO 

IF|AHC|K|.6E.i.OOo|  go  TO  140 
IF(X/PSUM.CC.AMC|K| I Go  TO  300 
00  ISO  U-I,NDT5 
NR  ■ J 
X ■ X * B( Jl 

1F( X/PSUM.6E. aMC(K I I GO  TO  200 
NR  ■ NOTS 


BINITIALIZE  factorial 

BFOR  EACH  Day  of  the  month, ,, 

BcohpUTE  factorial 

BcOMPUTE  POISSON  SUM 
BinITIAIlZE  POISSON  determinate 
BREOUEST  for  BAO  MONTH?  NO... 

B2ER0  bad  Days?  NOt.. 

BFOR  EACH  Oat  OF  THE  MoNyH... 

bstore  number  of  bad  days 
BCOHPUTE  NEW  determinate 
bcorrect  number  of  bad  Days? 
Bno,  ENYIRE  month  to  be  used 


LO 


■<I0  MRITClNMRT.tSO)  JOAv.ISCCTK 

•SO  FORNATI*0««*eRKOR  IN  RCADINS  PROFILE  DRV:  DAY  •'.I). 

• SECTOR  ••.is) 

STOP  reread 

•AO  wR|TE(NWRr,«70l  JOAr.lSECXX 

• 70  FORMAT!  *0***EROOR  IN  REMRIT>N6  PROFILE  DATI  DaT  >'•1*1, 

• ♦,  SECTOR  •Msl 
STOP  REWRIT 
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iirRt, 


tZlHTa.ooOl 

121970.0002 

122370.0003 
010771.0009 

os;, 022. 


R.  OOCKeN. 
R.  cocker. 
R.  docker. 
R.  docker. 


12-21-70 

12-23-70 

01-07-7| 


J ■ 10k  (F1lL.J2(inCT)  LERSTH,  buffer. jdrur.  ICOUNTI 
J ■ tOk  ( F I LC  • JFuRCt • LERGTh,  bUFFEH  , JDRUM . ICOuRTi  10.  F|NO) 

THIS  PHOGK*^  Provides  irteRfkce  for  the  fortrar  calle"  to 

EXEC  request  lOxS  TO  FACILITATE  RANOOH  ACCESS  ON  THE  DRUHS  ARO 
fASTRANDS  ASO  TAPES. 

<FILE>  the  7-wORO  INTERRAL  FIlE  RAPE  ILJSF)  OF  THE  FILE 
TO  BE  USED.  IT  HUST  BE  ASSlGRCC. 

<JFUNCT>  ONE  OF  THE  RECOGRIZEO  1/0  COOE5.  010»HRITE, 
020aRbArit  AND  OROaREWlNO  ARE  The  HOST  COHHOn 

ONES,  others  ape  described  in  the  prh  ard  the 

EXEC  RfFERENCE  CARO. 

<LENGTH>  THJ.  HAxIHUH  NUHBER  OF  ,ORDS  TO  TRANSFER. 

<puffer>  the  core  buffer  used  In  transfers,  it  hust  be 
specified  ever  for  no-cata  operations  like  a 
tape  RfhIno. 

<jORUH>  the  1/0  start*R6  address  For  Ranooh  access 
fills. 

<1C00NT>  THIS  Is  SET  8T  lOX  TO  THE  ACTUaL  NUhBER  OF  DATA 
kORoS  COPIED. 

<ID>  the  sektinel  For  searches. 

<FINO>  the  location  OF  THE  FIND  FOR  A SEARCH. 

the  function  Returns  t^e  status  code. 


»«2| 

LIT. 

SXI  1 

0. 

PKT 

RES 

6. 

PK 

EOU 

PKT 

• 

■ III. 

lOk* 

S 

XII 

OL 

AO, 

9S 

AO, 

sz 

PK* 

L 

AO, 

S.Tl 

AO, 

LXI 

AO, 

SAVE  xii  For  debug  tracing. 


SAVE  <X|1>, 

<file>. 

CLEAR  interrupt  COOES. 
<JFUNCT>. 


<LERQTH>. 
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r 


EX|T»6 


t*M 

*0, 3,  < 1 « . 

<BUFFER>,  I2»lf-7c 

L 

* J 1 • M t X 1 1 • 

<JDRUH>, 

OS 

*0,PK*6t 

TZ.Ml 

6 1 * 1 1 • 

IS  <10,  FiMO  specified? 

J 

»*3. 

NO) 

L 

AU • *6  t X 1 1 • 

<ID>, 

s 

*0,Ptf  ♦y. 

L.U 

»0,pkt1 

EB 

IOmP, 

<IC0UNT>. 

S 

*0 • aS 1 X 1 1 • 

T7,Ml 

^•X|  1 . 

IS  <10,  FlN0>  specified? 

J 

E* I T«6. 

NO) 

SZ.Tl 

PK*8. 

1. 

*U ,PK*P . 

<F IN0>, 

S 

*U,*7,X1I. 

L.Sl 

»0  ,PK*I4. 

<J>, 

J 

9.XI 1 • 

0I-07-71 

L.Sl 

*0,pk*m. 

<J>, 

J 

7tX 1 1 . 

01*07>7| 

END. 

nonnnnononn 
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SLOP 

subroutine  suuf I X.Y^YOOT.XS.TS.LK.MOROI 
lOENTiriC/ITION*** 

SINSLE  precision  subroutine  SLUP/L*<>R*N<iUN  I NTCRf  0L*T  I ON 
BUD  POULSON  IJPLI 
N.  MILtNE  (JPLI 
PORTRAn  IV 


PURPOSE! •. 

SIN6LE  LOOK  UP  tNo  L«6R*N6I«n  I NYEBPOLAT I ON. 

Given  « value  op  an  indeI’enoent  variable.  *,  pino  p(xi  pron 
A given  tabulated  function  op  *«I»  vs,  YjI),  ANO  optionally, 
C THE  FIRST  derivative. 

c 

c restrictions... 

C no  explicit  restrictions.  I.E.. 

C ANY  order  interpolation 

C ANT  size  table 

c the  independent  Variable  n*y  be  monotonically  increasing  or 

c decreasing 

c 

C HETHOO... 

c Lagrange'S  formula  is  used  kith  extrapolation  for  points 

C outside  the  table,  a binary  SEARCH  IS  used,  NmICH  mat  Be  the 

C SOLE  PURPOSE  OP  USING  SlUP, 

c 

c calling  sequence... 

C X,  independent  VAhIABLE  (INPUTI 

c T,  interpolated  Value  of  dependent  variable,  Y(Xi  (outputi 

C TOOT,  calculated  first  derivative,  Y*IX|  (OUTPUT) 

C XS,  tabulated  independent  variable  (INPUT) 

c Ys,  tabulated  dependent  Variable  t input) 

C LN,  NUMBER  OP  tabulated  POINTS  (INPUT) 

C IP  ONE  desires  TO  PINO  K IN  THE  SEQUENCE  X | | ) , X ( 2 | , X | 3 ) , 

C ,,,.X|K|,X(K«| |,,,,|X(LN|  when  the  QIVEN  X IS  between 

C X(X)  and  X(K*1),  then  make  LN  NEGATIVE  AND  THE  VALUE 

C K COMES  back  in  LN, 

C MOPD,  order  op  interpolation,  USING  MORONI  POINTS  IN 

C LAGRANGE'S  FORHuLA  (INPUT), 

C make  MOrO  negative  ip  the  PlRST  OERIVIAtIVe  is  desired. 

c 

DATA  ZERO/O.O/f  ONE/I.O/ 


dimension  XS(2),  YS(2) 
c 

NalABS(LN) 

c insure  that  the  Number  op  points  used  to  interpolate  is  less 

C than  OR  EQUAL  TO  THE  NUMBER  OF  DATA  POINTS  SUPPLIED 

M-MINOI |ABS(M0R0|*| iNI 

c assume  independent  Variable  is  monotonically  decreasing 

K«l 

L»N 

c monotonically  increasing  or  Decreasing? 

iPiXSIl )«XS(2)  I S.S.iO 

C independent  variable  is  monotonically  increasing 

S KBN 
L«l 


D-14 
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NOW  tCGlN  IINARr  sCAXCH  FOR  ARPRORRIATC  SUB>INTERVAL 
J"|IC*Lt/2 

lF|X-XSUn  16(35.20 
IC«J 

60  TO  25 

IF  n*BS|K.L>-i  I i0.3o.lO 
J-HAXOIK,t) 

SET  indices  of  SOg-INTER'^At  CONTAINING  POINT  GjVEN 
(ALSO  INSURE  INDICES  ARE  WItHIN  THqSE  ALLOWED,  I.E.t  I TO  N) 
NNbNAXOI I . J*H/2) 

HHaHlNOIN,NN*H>l  ) 

NNaMM>M*| 

IS  INTERPOLATION  bEOOESTED  AT  THE  GIVEN  POINT? 

IFILNI  95,»5,<»0 

T"2ER0 

YOOTaZERO 

DO  90  UaNN,NH 

T-rsij» 

K»0 

DO  40  laNN^MH 
|FM«J)  95.40.96 
R"X«XSI I I 
|F|R)  55(50(55 
R-ONE 
R"1 

IFIMORD)  55.55.90 

T"T*R/IXS|J»-XSI I ) 1 

CONTINUE 

|F|K|  70(70.45 

Y00T"Y00T*T 

GO  TO  90 

YaY^T 

IS  THE  derivative  reouesteo  At  the  given  Point? 

IFihorDI  75.75(90 
DO  85  laNN.Hn 
|F||.JI  80.85,80 
Y00TaY00T»T/(X-XSt  I ) | 

CONTINUE 
CONTINUE 
GO  TO  100 

binary  search  only  was  REQUeSTEO.  return  sub. interval  indices 

LNbNN 

HOROaHM 

RETURN 


L 
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